my $part;
$post_body =~ s{<c>(.*?)<\/c>}{
   ++part;
   qq{<a href='download?part=$part'>Download Me</a><pre>$1</pre>}
}gei;