use FindBin;
use lib $FindBin::Bin;

##</code><code>##

use FindBin;
use File::Spec::Functions qw/catdir/;
use lib catdir($FindBin::Bin, 'lib');

##</code><code>##

#!/usr/bin/perl -w
use 5.011;
...

##</code><code>##

["abcdef", "abcdefg", "abcde", " bcdefgh", " bcd "]
["abcdef", "abcdef", "abcde ", " bcdef"]
...