in reply to s/PATTERN/func()/em leaks /m into func()
Problem in \n in search and replace.
'\n' is a special character so use \\n <code> $s =~ s/^\\n+//; <\code>