my %teams = do { local $/; next unless <YB> =~ /^([A-Z\s]+?):\s*(.+)$/mg; };