Select Code to Download

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

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