I know, I know, everyone's done it, but here's my contribution:
$TheQuestion =~ /b{2}|[^b]{2}/;

Replies are listed 'Best First'.
it just wouldn't be a PerlMonks post without...
by ChemBoy (Priest) on May 22, 2002 at 16:44 UTC
      I'm not worthy! (bows to all and sundry) I don't know much Perl but I have a lot of Shakespeare by heart (ex-English major), and it is my personal quest to get my favorite scenes into Perl. My current project is Macbeth, Act V scene v. I'm pondering beginnings...
      for ($i=0; $i<=2; $i++) { push (@soliloquy, "tomorrow") } print join(' and ', @soliloquy), "\n";