my $tainted = $ENV{PATH};
my $untainted = $1 if $tainted =~ /^(.*)$/;

##</code><code>##

my $tainted = $ENV{PATH};
my($untainted)= ( keys %{ { $ENV{PATH} => undef }} );