# Globals
my $expensive_re_str =
   ''.qr/([\w.+-]+@(?:[\w-]+\.)+\w{2,5})(?<!\.(?:jsp|asp|jpg|htm)\W/i;
my %expensive_re;

# Workaround for perl bug RT#55600
my $expensive_re =
   $expensive_re{$thread_id} ||= qr/$expensive_re_str/;
my ($mail) = $string =~ m/$expensive_re/;