use strict;
use warnings;
my $s = do { local ( @ARGV, $/ ) = 'x'; <> };
$s =~ /x/;