in reply to (OT) Regular Expression

I think you need something like:

%s/^#1/#\r1/g

[download]

In Section Seekers of Perl Wisdom