#!/usr/bin/env perl
use Modern::Perl;

sub clean {
    for (@_){
        s/^\s+//;
        s/\s+$//; # this includes chomp
    }
    return @_;
}

my $str = 'The | quick | brown | fox | jumped| over | the  | lazy | dog. ';
say for clean split /\|/, $str;