Shell Programming and Scripting

while read record
do
  uniq_id=`echo $record | awk -F'A' '{print $1}'`
  part1=`echo $record | awk -F'B' '{print $1}'`
  part2=`echo $record | awk -F'C' '{print $1}' | awk -F'B' '{print "B" $2}'`
  part3=`echo $record | awk -F'D' '{print $1}' | awk -F'C' '{print "C" $2}'`
  part4=`echo $record | awk -F'D' '{print "D" $2}'`
  echo $part1
  echo $uniq_id$part2
  echo $uniq_id$part3
  echo $uniq_id$part4
  echo "******************************************"
done < test1.txt

$str = "1001A0010@B0010*&^0)C0012hgdj&6sD0020fhfri93kivmepi9";

$str =~ /(.*)A(.*)B(.*)C(.*)D(.*)/;

$uni = $1;
$a = $2;
$b = $3;
$c = $4;
$d = $5;

$seg1 = $uni.A.$a;
$seg2 = $uni.B.$b;
$seg3 = $uni.C.$c;
$seg4 = $uni.D.$d;

echo "1001A0010@B0010*&^0)C0012hgdj&6sD0020fhfri93kivmepi9" |
awk '{
    Id=substr($0,1,4)
    n=split($0,m,/[A-Z]/)
    for(i=2;i<=n;++i) {
       if (cnt)
          cnt+=l+1
       else
          cnt=length(Id)+1
       printf("%s%s%s\n",Id,substr($0,cnt,1),m[i])
       l=length(m[i])
    }
}'