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

##</code><code>##

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