if(=~m/(^#!.*?perl.+)/){ $out.="$1\n"; }