print "$1\n" while '1234X5678X' =~ m/([^X]+)X/g;

##</code><code>##

1234
5678