Select Code to Download

my $teamdata;
for my $line (<DATA>) {
...
# everything that matched in parenthesis to that list.
# A hash can be created using a list eg: (key, val, key, val)
my %teams = $teamdata =~ /^([A-Z ]+): *(.+)$/mg;