#!/usr/bin/perl use strict; my $input; local $/; $input = ; print $input; $input = ; print $input;