my @data; { local $/ = ":"; # or "\n:\n" for : on an empty line @data = ; }