#!/usr/bin/perl
use strict;
use warnings;

my $str = "item1  | item2| item3 
|item4|
 ";

print ">$_<\n" foreach split /\s*\|\s*/, $str;