my $url=~ /(http://www.[\w-.]+)/;
my $untainted_url = $1;

##</code><code>##

my $url=~ /([\w-.]+)/;
my $untainted_url = $1;