Help for this page

Select Code to Download

Select or download this

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