in reply to Regex - counting number of '|'
my $inp_row = "per|l|mo|nks|ro|ck|s";
print $inp_row =~ tr/\|/\|/, "\n";
Thanks a lot for takin the time out for this...!! I m really grateful...!! I am new to perl and was havin a really tough time with these things... but things are now slowly falling into place....!!
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (438 votes). Check out past polls.