[EMAIL PROTECTED] wrote: > Well, it tested by me and work properly with perl, v5.8.7 built for > MSWin32-x86-multi-thread > $a="ssadfaaadkjfhhh"; > print "$a\n"; > $a=~s /(.)\1+/$1/g; > print $a; > That works, but isn't answering what the original post asked for.
> -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Ernst, Yehuda > Sent: Wednesday, October 17, 2007 9:04 AM > To: [email protected] > Subject: [Israel.pm] another regexp Q > > Hello! > > I have an array like this: > > "aaadkjfh" > "abcde" > "dskkk" > > i want to take out the elements that have 3 same letters together. > > so i will be left with "abcde" -- Erez Software speaks with tongues of man; I debug, therefore I code. _______________________________________________ Perl mailing list [email protected] http://perl.org.il/mailman/listinfo/perl
