my $pos = index $str, '*';
$pos = length $str if $pos < 0;