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');