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