вот как то так


open ss,"<in.txt";
open yy,">out.txt";
while($a=<ss>){
while($a=~/[0-9]{10}/){$str=$&;$a=~s/$&//i;
$str=reverse $str;
for(1..3){chop $str;}
$str=reverse $str;
print yy "$str;\n";
}
}

close ss;close yy;

не оч элегантно но я хочу спать и туго ща соображаю -- входной файл in.txt выходной out.txt