sysopen(TOPIC, "$root/content/topics/$get{'topic'}", O_WRONLY);

$/ = "";
while(<TOPIC>) {
    if( /^$get{'post'}/ ) {
        s/.*\n$/$post/m;
    }
}

close(TOPIC);