Shell Programming and Scripting

cat file1 | gawk -F"|" '{print $1","$2,",",$3,",",$11 >> "new-file"}'

$ echo 'BEGIN{FS="|";OFS=","}{print $1,$2,$3,$11 >> "new-file"}'| a2p

#!/usr/bin/perl

open(NEW_FILE, '>>new-file') || die 'Cannot create file "new-file".';

$\ = "\n";             
$FS = '|';
$, = ',';

while (<>) {
    ($Fld1,$Fld2,$Fld3,$Fld4,$Fld5,$Fld6,$Fld7,$Fld8,$Fld9,$Fld10,$Fld11) = split(/[|\n]/, $_, -1);
    print NEW_FILE $Fld1, $Fld2, $Fld3, $Fld11;
}