while (<DATA>) {
    chomp;  # YOU NEED TO DO THIS
    my ($c, $p) = split( /\|/ );  # THEN DO THIS
    ...