my $loc = do { my $i = index $s, '*'; $i < 0 ? length($s) : $i };