my @files
    = map {
        my $file = $_;
        chomp $file;
        $file =~ s{ \A \s+ | \s+ \z }{}xmsg;
        $file;
    } <$FILES>;