Select Code to Download

perl -ne 'print if /Pattern1/ .. /Pattern2/' file1

#!/usr/bin/perl
use strict;
...
   if (/Pattern1 .. /Pattern2/)
  {printf $log;}
}

"Use of uninitialized value in pattern match (m//) at temp.pl line 11.
+"