sub index_regex {
     my ($string, $regex) = @_;
     $string =~ $regex or return -1;
     return $-[0];
}

my $index = index_regex("hallo Welt", qr/[A-Z]/);
print "Whoah, ein Grossbuchstabe bei $index\n" if $index != -1;