#!/usr/bin/perl
use Modern::Perl;
# 934221

# find a string, then print the next ten chars

my @content = qw/abcdABCD1234567890xyz abcd12345ABCD0ABCD ABCD1234ABC qwertyABCD1234567890/;

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