perl -e 'my $rev = (qw$Revision: 1.41 $)[-1]; print $rev, "\n"' perl -e 'my $rev = (qw($Revision: 1.41 $))[-1]; print $rev, "\n"'