Select Code to Download

$string =~ m#
             (some pattern)
            #x;

#!/usr/bin/perl -w
use strict;
...
    $comments comment lines detected in $infile
    $code lines written to $outfile
SUMMARY