Select Code to Download

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

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