Select Code to Download

 $bar =~ s#(\d{2})#"<td>".foo($1)."</td>"#mesg;

#!perl -w
 sub foo { "<$_[0]>" };
...
 print $bar;
__END__
<td><22></td><td><99></td>-<td><33></td>-ff