or download this
my $post_body ='<c>this is the first code block code</c> This is <c>an
+other code block</c>';
my $part = 1;
$part++ while $post_body =~ s/<c>(.*?)<\/c>/<a href='download?part=$p
+art'>Download Me<\/a><pre>$1<\/pre>/i;
print $post_body, "\n";