Re: How to call a function on each item after a split?

[aaron_baugher]

You could change your clean sub so it takes an array and returns an array. Then you can 'pipe' your data through it:

#!/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 | do
+g. ';
say for clean split /\|/, $str;