use v5.22;
    use warnings;
    use autodie;

    my $mydata = "this\nthat\n";

    open (my $fh, '<' , \$mydata);

    while (<$fh>) {
        print $_;
    }