#!/usr/bin/env perl

use strict;
use warnings;

while (<DATA>) {
    print "Line $. has ", y/|/|/, "\n";
}

__DATA__

|||||
!|@|#|$|%|
|1|2|3|4|
|q|w|e|r|t
y|u|i|o|p
A|S|D|F|G|H
Z|X|C|V|B|N|