Noted. So we capture up until the last ' on '.
use strict; use warnings; my $source = 'Posted by getting on my nerves on September 04, 2003'; if ( $source =~ /^Posted by (.*?) on (?!.* on )/i ) { print qq("$1") . "\n"; }
blokhead is right.. and I will go lick my wounds now.
In reply to Re^3: Grouped characters inside character class.
by Enlil
in thread Grouped characters inside character class.
by the_0ne
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |