Select Code to Download

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

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

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