use strict;
use warnings;
print "Content-Type: text/html\r\n\r\n";
my $crap = <<"EOL";
		</td>
				<td class="conf-text">
						<p>
				i joined the GNAA, but im neither gay, nor am i a nigger.<br />
<br />
i hope they never found out because i <a href="/random/love">love</a> those <a href="/random/guys">guys</a>.
			</p>
					</td>
	</tr>
EOL

my @arr = split("\n", $crap);
for(my $i = 0; $i < scalar(@arr); $i++){
    if($arr[$i] =~ /<td class="conf-text">/i){
        for(my $ii = $i; $ii < scalar(@arr); $ii++){
            $arr[$ii] =~ s/<[^>]+>| {2,}//g;
            $arr[$ii] =~ tr/\n\r\t//;
            print $arr[$ii];
            last if ($arr[$ii] =~ /<\/td>/);
        }
    }
}
#print $crap;