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