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