my $rcs = (qw($Revision: 1.46 $))[-2]