my @file = do { local $/; $_ = ; split /(?=>)/; };