if $line =~ /^myword.*$/ {
     $line =~ s/$&//g
    }