use 5.008;
open my $fh, '<', \$mystr;