if ($wozzle =~ /extensive-perl-regexp-line-noise-here/ {