in reply to Extract last two digits from numbers

my ($digits)= $str =~ m/\d\d(\d\d)/;

cheers

tachyon