index can be persuaded to return the string length on non_match:

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

Anno