myword myobject,option2,option3 word word word

##</code><code>##


while (my $line=<DATA>) {
     if $line =~ /^myword\s+/ {
           work on line;
     }
}

##</code><code>##

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