Select Code to Download

#! /usr/bin/env perl

...

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

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

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