while (get $url) {
  my $string = (split "_")[1];
  print "${string}\n"
}

##</code><code>##

forach (split "\n", (get $url)) {