- or download this
$_ = "X1aaX2bbX3heeX4...X5loveU" ;
@match = /X\d.+?/g;
...
foreach $word (@match){
print "\n$word";
}
- or download this
X1aaX2bbX3heeX4...X5loveU
X1a
...
X3h
X4.
X5l
- or download this
X1aaX2bbX3heeX4...X5loveU
X1aa
...
X3hee
X4...
X5loveU