Select Code to Download

use strict;
...

!!1;

use strict;
...
is_deeply splitF_test("", "ab");
is_deeply splitF_test(";", "a;b");

if (   $field_start == $field_end
            && $sep_aref
...
            info('SKIP intermediate field+separator, both are empty');
            next;
        }

# while ( my $rv = $$str_ref =~ m{$pat_re}gc ) { does not work
# but this works:
my $str = $$str_ref;
while ( my $rv = $str =~ m{$pat_re}gc ) {