Select Code to Download

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

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