Once everyone reminded me about escaping pipes ...

my $file = (split(/\s*\|\s*/,$line))[2];
[download]

But your way is safer. ;)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)