#!/usr/bin/perl -w

open $in,"filein.txt" || die "Can't Open file!\n";
open $out,">out.txt";
while($a=<$in>){
$a=~s/tppabs="http:\/\/sms-angel.ru\/images\/label_topic.png\?\d{10}"//g; # d{10}-количество цифр в урле
print ($out $a); 
}
close ($in);
close ($out);