if $line =~ /(^myword.*option\d+\s+).*$/ { $line =~ s/$1//g }