$file =<<EOF;
<ins cnt="4">
blah
<ins cnt="2">
EOF
                                                                                
$file =~ s/<ins cnt="(\d+)">/"<TAG>" x $1/egs;
                                                                                
print $file;