use strict;
use warnings;

my $pos = getPosition(0);
while ($pos>=0) {
    print "Gefunden bei $pos\n";
    $pos = getPosition($pos+1);
}

sub getPosition {
    my ($start) = @_;
    return index("xxAxxAxxxA", "A", $start);
}