else { if ($io_ref) { # GLOB/IO ref $in = $txt; # Now pray ... } else { # just text open $in, "<", \$txt or return; } }