Select Code to Download

while( <FILE> ) {
   if( my $pos = index( $_, '--foo' ) ) {
...
      print substr( $_, $pos, length($_) - $pos );
   }
}