My code uses qw$$ while yours uses qw().

Try these:

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