my $year = 2002;
 ($year) = $year =~ m/\d\d$/g;