Help for this page

Select Code to Download

Select or download this
@match = /X\d.+?(?=X\d|$)/g;

Select or download this

    $_ = "X1aaX2bbX3heeX4...X5loveUX6XXXX7X8" ;

    my @match = split /(X\d)/;
...
        print "\n" unless $word =~ /X\d/;
    }