while (my $line = <>) {
    my $category = split("|", $line, 1);
    # ...
}