my $rcs = (qw$Revision: 1.41$)[-1];