split '|',     $line, 5;   # WRONG
split '\\|',   $line, 5;   # ok
split /\|/',   $line, 5;   # Better
split qr/\|/', $line, 5;   # Can also use qr//
split $re,     $line, 5;   # or compiled regexes