http://qs321.pair.com?node_id=674731


in reply to Regex - counting number of '|'

this one works for me:

use strict;
my $inp_row = "per|l|mo|nks|ro|ck|s";
print $inp_row =~ tr/\|/\|/, "\n";

[download]
HTH,
Mickey

In Section Seekers of Perl Wisdom