my $esc = qr/[\\'," ]/;
m,w(?:$esc)*i(?:$esc)*n(?:$esc)*d(?:$esc)*o(?:$esc)*w(?:$esc)*\.(?:$esc)*o(?:$esc)*p(?:$esc)*e(?:$esc)*n(?:$esc)*\. ET CETERA,;