Help for this page

Select Code to Download

Select or download this

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