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