What's tainting?
($foo) = ($val =~ /^(.*)$/g);
($foo) = (keys %{ +{$val}});
($foo) = ($val =~ /^(?!.).$/
A blessed horn of a unicorn untaints everything