$var1 =~ s!(.*)(<td>)(\d{4,6})(<\/td>)(.*)!$1-foo-$2-bar-$3...usw