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

##</code><code>##

#!perl
#!!!!!!!perlllllll
#!perl -w

##</code><code>##

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

##</code><code>##

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