Shell Programming and Scripting

rohan,rahul,kunal,"sw,ati"
rohan,rahul,"k,un,al",swati
rohan,"rah,ul",kunal,swati
"ro,han",rahul,kunal,swati
rohan,rahul,kunal,swati
50119785,IRFE Asia,IRFE:3123146,18-Jun-09,29-Jun-09,MODFOLLOWING,29-Jun-12,MODFOLLOWING,IDR,USD,30900000000,3000000,1329758,"THE BANK OF TOKYO-MITSUBISHI UFJ, LTD.",N,,,,,GREEN,B,FLOAT,FIXED,--,10.25,,,,,,,,,6M,6M,,6M,A/360,A/360,MODFOLLOWING,MODFOLLOWING,USD,GBP,IDR,USD,GBP,IDR,MODFOLLOWING,MODFOLLOWING,USD,GBP,IDR,USD,GBP,IDR,,,,GBP,,,--,6M-USD-LIBOR-BBA,,0,,,,,0,0,,2,NO,1329758,0,0,0,0,23100,0,0,23100,IDOSW,JKT,665,Cross-Currency Swap,NEW,D121360,N, x

rohan,rahul,kunal,"swati"
rohan,rahul,"kunal",swati
rohan,"rahul",kunal,swati
"rohan",rahul,kunal,swati
rohan,rahul,kunal,swati
50119785,IRFE Asia,IRFE:3123146,18-Jun-09,29-Jun-09,MODFOLLOWING,29-Jun-12,MODFOLLOWING,IDR,USD,30900000000,3000000,1329758,"THE BANK OF TOKYO-MITSUBISHI UFJ LTD.",N,,,,,GREEN,B,FLOAT,FIXED,--,10.25,,,,,,,,,6M,6M,,6M,A/360,A/360,MODFOLLOWING,MODFOLLOWING,USD,GBP,IDR,USD,GBP,IDR,MODFOLLOWING,MODFOLLOWING,USD,GBP,IDR,USD,GBP,IDR,,,,GBP,,,--,6M-USD-LIBOR-BBA,,0,,,,,0,0,,2,NO,1329758,0,0,0,0,23100,0,0,23100,IDOSW,JKT,665,Cross-Currency Swap,NEW,D121360,N, x

#!/usr/bin/perl -w
use warnings;
use strict;

open( FH, "input.txt" ) || die "Can't open the input file: $!";

while (<FH>) {
    chomp;
    my $regex = '("\w+[-,|\w+\s+\.]+")';
    m/$regex/g;
    my $line = $1;
    $line =~ s/,//g;
    s/$regex/$line/g;
    print $_. "\n";
}

close(FH);
exit 0;

#!/bin/bash
total_recs=`wc -l /etc/dev/test_recs | awk '{print $1}'`
i=1
while [ $i -le $total_recs ]; do
rec=`head -$i /etc/dev/test_recs | tail -1`
rec1=`echo $rec | sed 's/\("[a-z]*\),\(^*\)/\1 \2/g'` # To remove find the pattern which starts with "[a-z] 
rec2=`echo $rec1 | sed 's/,"/,/g'` # To replace ," with only ,
rec3=`echo $rec2 | sed 's/" /,/g'` # To replace "and space with comma
rec4=`echo $rec3 | sed 's/"//g'` # To replace " in the start and end of the line
rec5=`echo $rec4 | sed 's/ //g'` # To replace extra space with none
i=$(($i+1))
echo $rec5
done