$body =~ s/\ni ([^\n]*?)\n/makeImageTag(\1)/eg;


##</code><code>##

($_='jjjuuusssttt annootthhrer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;