($filename,$description) = ($line =~ m/(^\S+)\s+(.*)/);

##</code><code>##

if($line =~ m/(^\S+)\s+(.*)/) { push @documents, [$1,$2]; }