# Specify input record separator... $file_contents = slurp $file, {irs=>"\n\n"}; $file_contents = slurp '<', $file, {irs=>"\n\n"}; $file_contents = slurp {irs=>"\n\n"}, $file;