use strict; use warnings; my $file = < FILE open my $in, '<', \$file; local $/ = "\n\n"; my @parts = <$in>; chomp @parts; print "----------\n$_\n" for @parts;