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