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