Help for this page

Select Code to Download

Select or download this

perl -ne "/foo(\d+)/ && do { open FILE, '>>', 'split'.$1.'.txt'; print
+ FILE $_; close FILE }" blah.txt