Select Code to Download

use strict;
use warnings;
...
    $_ = ucfirst lc for grep {/\w{3,}/} @words;
    print "$str: ", join (' ', @words), "\n";
}

BELLMONT NY: Bellmont NY
NEW YORK NY: New York NY