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