Help for this page
while (get $url) { my $string = (split "_")[1]; print "${string}\n" }
forach (split "\n", (get $url)) {