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