my $post_body = ...from db...;
my $part = $cgi->param{part};
my $block = ($post_body =~ m{<c>(.*?)</c>}gi)[$part];

if (!defined($block)) {
   ...error...
} else {
   print("Content-Type: text/plain\n\n$block");
}