in reply to Re^2: Array looping
in thread Array looping

32 strokes:

$ perl -pale '$_^=$F[1];$_=y/\0//'
ATCGTCGAGCG ACGTCCTGTCG
4

[download]

Replies are listed 'Best First'.
Re^4: Array looping
by vrk (Chaplain) on Apr 13, 2017 at 08:12 UTC

    Brilliant!

[reply]

In Section Seekers of Perl Wisdom