my $str = "1234";
my $ss = substr ($str,2);
print $ss;