/(.{2})$/ #### perl -le 'my $str="qwerty"; $str=~m/(.{2})$/; print $1;' #output ty