Select Code to Download

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

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