Select Code to Download

#!/usr/bin/perl

use strict;
...
while ($string =~ /(http:\S*)\s/g) {
    print $1, "\n";
}