Select Code to Download

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

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