#!/usr/bin/perl -l
use strict;
use warnings;

my $str = 'aaaa5aaaa0';

my $cnt = 7;

for my $i ( 1 .. $cnt ) {
    # ersetze oder Abbruch, wenn keine Ersetzung (mehr) moeglich
    $str =~ s/a/X/ || last;
    print $i;
}

print $str;