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