>perl -wMstrict -le
"my $text = 'XXXXXaXXXXX';
 ;;
 for my $match ( $text =~ /(?<=[A-Z]{4})([a-z])(?=[A-Z]{4})/g )
 {
     print $match, $/;
 }
"
a