#!/usr/bin/perl use strict; use warnings; perl -ne 'chomp; printf "%sUF,A,Y,9,U\n", $_' test2.csv;