#!/usr/bin/perl my @paras = do { local $/=""; }; #Idiom localizing $/ for (@paras){ print "\n"; print $_; print "\n"; } __DATA__ This is the first paragraph of text. This is the second. This is also the second. This is the 3rd.