By curiosity :

This is perl, v5.8.8 built for x86_64-linux-gnu-thread-multi

#!/usr/bin/perl 
use strict;
use warnings;
use Regexp::Common qw /net/;
use Benchmark qw( cmpthese );

my $line = q{127.0.0.1}; 

cmpthese -10, {
    RE => '$line =~ /\A $RE{net}{IPv4} [|] password [|] (ssn=) \z/xmi'
+,

    RE_O => '$line =~ /\A $RE{net}{IPv4} [|] password [|] (ssn=) \z/xm
+io',

    ORIG => '$line =~ /[\d]{1,3}\.[\d]{1,3}\.[\d]{1,3}\.[\d]{1,3}\|pas
+sword\|(ssn=)/i',

    RE_CHAR => 'use charnames qw( :full);
                $line =~ /\A $RE{net}{IPv4}
                             \N{LINE TABULATION}
                             password
                             \N{LINE TABULATION}
                             (ssn=) \z/xmi'

};

[download]
             Rate    RE_CHAR   RE     RE_O    ORIG
RE_CHAR    17366/s      --     -2%     -2%   -100%
RE         17704/s      2%      --     -0%   -100%
RE_O       17747/s      2%      0%      --   -100%
ORIG    12717477/s  73132%  71732%  71561%      --

[download]

PooLpi

'Ebry haffa hoe hab im tik a bush'. Jamaican proverb

In reply to Re^5: Sort/Uniq Help by poolpi
in thread Sort/Uniq Help by learningperl01

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.