note deibyz Here is my try,<p> <table><tr><td bgcolor="#000000" color="#000000"> <code> sub deibyz { my $match; while(/.*?(.+)(.?)((??{reverse$1})).*?/g){ $match = $1.$2.$3 if length($1.$2.$3)>length($match); } $match; } </code> </td></tr></table> 382567 382567