sub transform {
  my ($text) = @_;
  $text =~ tr/_/ /;
  $text =~ s/.*\/+//;
  $text =~ s/\.[^.]*\z//;
  return $text;
}