Look into the third argument, the "limit", on the split help page. Type "perldoc -f split" to get this on your local machine. I will also pimp How to RTFM about how to find the answers to easy questions.

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'