121495Sjmacd#!./perl 221495Sjmacduse strict; 321495Sjmacduse warnings; 421495Sjmacd 521495Sjmacd$| = 1; 621495Sjmacd 721495Sjmacd 821495SjmacdBEGIN { 921495Sjmacd chdir 't' if -d 't'; 1021495Sjmacd require './test.pl'; 1121495Sjmacd set_up_inc( '../lib', '.', '../ext/re' ); 1221495Sjmacd} 1321495Sjmacd if (is_miniperl()) { 1421495Sjmacd skip_all_if_miniperl("Unicode tables not built yet", 2) 1521495Sjmacd unless eval 'require "unicore/UCD.pl"'; 1621495Sjmacd } 1721495Sjmacd 1821495Sjmacdplan tests => 3; 1921495Sjmacduse strict; 2021495Sjmacd 2121495Sjmacdmy(@body) = ( 2221495Sjmacd "<mailto:xxxx.xxxx\@outlook.com>", 2321495Sjmacd "A\x{B9}ker\x{E8}eva xxxx.xxxx\@outlook.com \x{201D}", 2421495Sjmacd); 2521495Sjmacd 2621495Sjmacdfor (@body) { 2721495Sjmacd s{ <? (?<!mailto:) \b ( [a-z0-9.]+ \@ \S+ ) \b 2842660Smarkm (?: > | \s{1,10} (?!phone) [a-z]{2,11} : ) }{ }xgi; 2942660Smarkm my $got= $1; 3021495Sjmacd is( $got, '.xxxx@outlook.com' ); 3142660Smarkm} 3242660Smarkmok("got to the end without dieing (note without DEBUGGING passing this test means nothing)"); 3321495Sjmacd 3421495Sjmacd