my $str = "12345"; my $ss = substr($str, 0, -2); print $ss;