$bar =~ s/(\d{2})/joo/msg;
$bar =~ s#(\d{2})#jee#msg;
$bar =~ s#(\d{2})#foo($1)#mesg;
$bar =~ s#(\d{2})#<td>ha ha ha</td>#msg;