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