my $text;
if (@ARGV) {
   $text = shift(@ARGV);
} else {
   local $/;
   $text = <STDIN>;
}

##</code><code>##

my $text; { local $/; $text = <>; }