view release on metacpan or  search on metacpan

examples/ignore_addresses.pl  view on Meta::CPAN

                 . q{http://en.wikipedia.org/wiki/NEC_SX_architecture};
#                                                     ==
#                                                      ^
#                                                      |
# This is NOT a X-system!! ----------------------------+

# my $orthographic = $converter->convert($various);
# We cannot convert correctly this string at once,
# because "SX" will be converted!

my @words = split m{(\s+)}, $x_systematic;
WORD:
foreach my $word (@words) {
    next WORD
        if $word =~ m{
            (?:
                :// |       # URI
                @           # mail address
            )
        }xms;
    $word = $converter->convert($word);