my @content = qw/abcdABCD1234567890xyz abcd12345ABCD0ABCD ABCD1234ABC qwertyABCD1234567890/;
push @content,  'ABCD 123 456 789';

say "===> \$content[4]: $content[4] \n\n";


for my $content(@content) {
	$content =~ /.+?ABCD(.{10}).*/;
	say "Current array element is: $content";
	if ($1) {
		say "\t Next 10 char after the match: $1";
	}else{
		say "No match on $content";
	}
}