my ($file, $rest, $ext) = ($1, $2, $3);
print "<code>";
print "<a href=\"http://cvs.i-scream.org/$file\" style=\"text-decoration: none;\">";
print HTML_encode($file);
print "</a> ";
if($rest =~ /\((\S+)\.(\d+)(.*)\)/) {
my ($file, $rest, $ext) = ($1, $2, $3);
print "<code>";
print "<a href=\"http://cvs.i-scream.org/$file\" style=\"text-decoration: none;\">";
print HTML_encode($file);
print "</a> ";
if($rest =~ /\((\S+)\.(\d+)(.*)\)/) {