Select Code to Download

perl -ne 'open FH, ">$..line" and print FH $_ and close FH' data_file

perl -ne "open FH, '>', $..'.line' and print FH $_ and close FH " data
+_file