my $loc = (index($s, '*')+1) || (length($s)+1);