my( $bleep ) = split /\\+/, $line, 2;
update: disregard the above. Here's an alternate pattern
my $bleep = $1 if $line =~ /^ \\+ (.*?) (?=\\)? /x;
on second thought, if you really wanted to use split, something like
my $bleep = (split /\\+/, $line, 3)[-2];
should work (and it does).
| MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!" |
| I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README). |
| ** The third rule of perl club is a statement of fact: pod is sexy. |