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


##</code><code>##

my %check = (
    foo => qr/^([[:alpha:]]+)$/,
    bar => qr/^([[:alpha:]]+)$/,
    baz => qr/^([[:alpha:]]+)$/,
    quux => qr/^([[:alpha:]]+)$/,
);

my %f;

for my $pname (keys %check) {;
    defined && /$check{$pname}/ ? $f{$pname} = $1 : untaint_fail($pname)
        for scalar param($pname);
}