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