{ use re debug; my $re = qr/myregex/; } ... if ($item =~ /$re/) { ... }