in reply to Re^3: Using Regexp Patterns as Variables
in thread Using Regexp Patterns as Variables

Turn on taint #!/usr/bin/perl -T-- just the same.