#! perl -slw use strict; $/ = ''; # paragraph mode print "'$_'" while ; __DATA__ abc: asdf1 asdf2 def: asdf3 ghi: asdf4 asdf5 #### c:\test>junk 'abc: asdf1 asdf2 ' 'def: asdf3 ' 'ghi: asdf4 asdf5 '