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

##</code><code>##

print stripper('fqdn', 'www.a.;EVIL!/')   # www.a.;EVIL!