If You just want the first two characters in a string (numbers are sort of strings in perl, the distinction is kind of fuzzy), you can use this:

my $newno = substr($no, 0, 2);
[download]

See: substr

I hope this is what you wanted. If not let me know, and I'll try to help.