Help for this page
if(<IN>=~m/(^#!+?perl+?)/){ $out.=$1; }
#!perl #!!!!!!!perlllllll #!perl -w
if(<IN>=~m/(^#!.*?perl.+)/){ $out.="$1\n"; }
if(<IN>=~m/(^#!.*?perl.*)/){ $out.="$1\n";