#! perl -slw use strict; local $/ = ''; while( ) { print "'$_'"; }