Help for this page
my $untained = $tainted =~ /^(.*)/s;
print stripper('fqdn', 'www.a.;EVIL!/') # www.a.;EVIL!