my( $before, $after ) = split /$breakline/, $content, 2;

##</code><code>##

my( $before, $after ) = split /\Q$breakline/, $content, 2;