Select Code to Download

use strict;       use warnings;

...
"\$@{[$x++]}") .$_}split//,lc$.
|gei;}}s/-{2}/\n/g;s/[A-Z]/ /g;
print"Locations:";print;__END__