Select Code to Download

while (<IN>)
{

   if (/^Curve(\d):/.../^\s*$/)
   {

     if (defined($1) && $1==1 && /^\d/) {print $c1 "$_\n";};
     if (defined($1) && $1==2 && /^\d/) {print $c2 "$_\n"};

#!/usr/bin/perl
use warnings;
...
    }
}