Select Code to Download

# clean lines with words in
$text =~ s/.*?             # anything
...
           /$1/gx;         # replace whole line with (\w.*\w) match,
                           # if made.

(\w.*\w) => ([\w\.,].*[\w\.,])