filehandle => sub {
        my @lines;
        open my $str_fh, "<", \$str or die "cannot open fh $!";
        while (<$str_fh>) {
            chomp;
            s/o/i/g;
            push @lines, $_;            
        }
    },