Select Code to Download

myword myobject,option2,option3 word word word

while (my $line=<DATA>) {
...
           work on line;
     }
}

   if $line =~ /^myword\s+/ {
     $line =~ s/^myword myobject,options//g
    }