Select Code to Download

#!/usr/bin/perl
use warnings;
...
for my $type (keys %$structure) {
    say "$type: ", $structure->{$type} =~ s/[.:].*//r;
}