my $untained = $tainted =~ /^(.*)/s;