#! /usr/bin/env perl

use strict;
use warnings;

my $here = <<HERE;
before text
more text
### hjh jh ja jhjasdhf jh'j
asdk kas dkjakdjf kasjd fkjasdkfj
kajsdkjf kasjdf end ###
after headline
after text
HERE

$here =~ s/(^(#+)\s)(.*?)\g2/$2 . ' ' . $3 =~ s|\n||rg . $2/mse;
print $here . "\n";

##</code><code>##

before text
more text
### hjh jh ja jhjasdhf jh'jasdk kas dkjakdjf kasjd fkjasdkfjkajsdkjf kasjdf end ###
after headline
after text

##</code><code>##

Use of uninitialized value $2 in concatenation (.) or string at /Users/me/perl/workshop/regex/tut.pl line 16.
before text
more text
### hjh jh ja jhjasdhf jh'jasdk kas dkjakdjf kasjd fkjasdkfjkajsdkjf kasjdf end
after headline
after text