my $string = 'monk1223';
print ((split "", $string)[$#a-2..$#a]);