Help for this page
while ('abc' =~ /(.)/g) { print($1); }
while ('abc' =~ /(?=(.))/g) { print($1); }
$_ = 'abc'; ... /xg) { print("Match\n"); }
pos=0 len=0 Match ... Match pos=3 len=1 Match