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