Select Code to Download

sub split_before {
    my ($string, $pos) = @_;
    my $pos = rindex $string, '*', 30;
    split /(?<=^.{$pos}\*) /, $string, 2
}

Win8 Strawberry 5.30.3.1 (64)  Sat 09/11/2021 21:56:27
C:\@Work\Perl\monks
...
ok 11 - 28 split invalid
ok 12 - 55 split invalid
1..12