my $s= '12345';
print substr $s, -2;

45