my $pos = index( "$str*", '*');