my $year = 2002;
$year =~ s/.*(\d\d)$/$1/;
print $year;