<% 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

Saturday, 23-Aug-2014 15:15:43 EDT



<%= $article %>
Copyright Notices