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