#!/usr/bin/perl -wpi use strict; $/ = ""; while(<>) { chomp; print "$_\n"; }