my $REVISION = '$Id: pod-usage,v 1.79 2006/01/07 23:23:12 steve Exp $'; $VERSION = join (' ', (split (' ', $REVISION))[2]); $VERSION =~ s/,v\b//; $VERSION =~ s/(\S+)$/$1/;