$desc =~ s/^\n+//s;
error ("$filename: description contains bad characters")
if ($desc =~ m/([^\t\n -~]|[<>])/);
error ("$filename: can't extract authors")
$desc =~ s/^\n+//s;
error ("$filename: description contains bad characters")
if ($desc =~ m/([^\t\n -~]|[<>])/);
error ("$filename: can't extract authors")