$tainted =~ /^(.*)$/;
my $untainted = $1;