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