my( $bleep ) = split /\\+/, $line, 2;

##</code><code>##

my $bleep = $1 if $line =~ /^ \\+ (.*?) (?=\\)? /x;

##</code><code>##

my $bleep = (split /\\+/, $line, 3)[-2];