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