Re: Counting characters within regexp

[kcott]

G'day Bod,

This looked a short, fun exercise. I threw this together before looking at any reponses.

$ perl -Mstrict -Mwarnings -E '
    my @email = (
        q{[e-mail]},
        q{[e-mail]},
        q{[e-mail]},
    );

    for my $email (@email) {
        my ($nm0, $nm1, $at, $ad0, $ad1, $tld)
            = $email =~ /^(..)([^@]*)(@)(..)(.*?)(\.[^.]+)$/;
        say $email;
        say $nm0, "."x length($nm1), $at, $ad0, "."x length($ad1), $tl
+d;
    }
'
[e-mail]
so.....@ex.........uk
[e-mail]
an.........@so..............uk
[e-mail]
jo@ab..com

There are some similarities to what others have posted.