C:\>perl -le"print $1 while q!011122xx3x344444! =~ /((.)\2*)/g" 0 111 22 xx 3 x 3 44444 [download]
In reply to Re: Regex question by Anonymous Monk in thread Regex question by Anonymous Monk