<% my $filename=$Request->ServerVariables('QUERY_STRING'); my @filex; @filex=split('/',$filename); $filename = @filex[$#filex - 3] . '/' . @filex[$#filex - 2] . '/' . @filex[$#filex - 1] . '/' . @filex[$#filex]; my $article; my $title; open (INPUT, "< ./$filename"); while () { $article .= $_; if ($_ =~ /

/) { $title=$_; } } close (INPUT); $title =~ s/

//g; $title =~ s/<\/h2>//g; %> InternetTrash News: <%= $title %> [an error occurred while processing this directive]
[an error occurred while processing this directive]

InternetTrash News

Monday, 24-Nov-2014 20:19:32 EST



<%= $article %>
Copyright Notices