$line =~ s/^\*(.*)/!$1/ and print $line and next if $line;

##</code><code>##

print("!" . substr($line, 1)) and next if index($line, '*') == 0;