Subject: | Unexpected pattern, very long wait |
This script:
use Regexp::Common qw[Email::Address];
use Email::Address;
$line = ' ' x 24;
$line =~ /($RE{Email}{Address})/;
Takes a very long time to complete. I'm guessing, because I can't wait
that long :-). Shorter strings do complete within my personal time
window, but still too long.
FWIW, this was discovered with:
$line = '<pre> % </pre>';