Help for this page

Select Code to Download


  1. or download this
    if(<IN>=~m/(^#!+?perl+?)/){
    $out.=$1;
}
  2. or download this
    #!perl
#!!!!!!!perlllllll
#!perl -w
  3. or download this
    if(<IN>=~m/(^#!.*?perl.+)/){
    $out.="$1\n";
}
  4. or download this
    if(<IN>=~m/(^#!.*?perl.*)/){
    $out.="$1\n";