Select Code to Download

my ($foo, $bar, $baz, $quux);
defined && /^([[:alpha:]]+)$/ ? $foo = $1 : taint_fail('foo') for scal
+ar param('foo');
defined && /^([[:alpha:]]+)$/ ? $bar = $1 : taint_fail('bar') for scal
+ar param('bar');
defined && /^([[:alpha:]]+)$/ ? $baz = $1 : taint_fail('baz') for scal
+ar param('baz');
defined && /^([[:alpha:]]+)$/ ? $quux = $1 : taint_fail('quux') for sc
+alar param('quux');

my %check = (
    foo => qr/^([[:alpha:]]+)$/,
    bar => qr/^([[:alpha:]]+)$/,
...
    defined && /$check{$pname}/ ? $f{$pname} = $1 : untaint_fail($pnam
+e)
        for scalar param($pname);
}