$no = '77373737377837';
$newno = $1 if $no=~m#^([0-9]{2})#;

print "\n$newno";