my $string = "aXbcXdefgXhijXklmnopqrXstuvwXyz";
my $target = 'X';

my @offsets;
while ( $string =~ /$target/g ) {
  push @offsets, pos($string) - length($target);
}

print "@offsets\n";