my $teamdata;
for my $line (<DATA>) {
	$teamdata .= $line;
}

# If you assign a global match to a list, it stores
# 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;