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