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