use strict;
use warnings;

my $s = 'PRELUDExz3456MIDDLEzy1234POST';

my @list = split m/([a-z]{2}\d{4})/, $s;
print "@list\n";
__END__
PRELUDE xz3456 MIDDLE zy1234 POST