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