Shell Programming and Scripting

ID      Code
1       AB1234567DF345    
2       FD357DC34    
3       DS234

ID      Code
1       AB1    
1       AB2   
1       AB3    
1       AB4 
1       AB5 
1       AB6 
1       AB7 
1       DF3
1       DF4
1       DF5 
2       FD3 
2       FD5   
2       FD7 
2       DC3   
2       DC4 
3       DS2   
3       DS3 
3       DS4

 awk '{len=length($2);for (i=1;i<=len;i++) {if ( substr($2,i,1) ~ /[1-7]/){printf "%d %s%s\n", $1,ch,substr($2,i,1)}else{ch=substr($2,i,2);i++;} }}' input.txt

awk '
NR==1{print;next} 
{
  split($2,a,"")
  for (i=3;i<=length($2);i++) 
    {
      if (a[i]~/[A-Z]/) {a[1]=a[i];a[2]=a[i+1];i+=2}
      print $1 "\t" a[1]a[2]a[i]
    }
}' infile

while(<DATA>){
  if($.==1){
   print;
   next;
  }
  my @tmp = split;
  my $key=$tmp[0];
  my @t = split /(?<=[0-9])(?=[A-Z])/,$tmp[1];
  foreach(@t){
    if(/([A-Z]*)/){
      my $tmp = $1;
      s/(?<=[0-9])(?=[0-9])/"\n".$key." ".$tmp/eg;
      print $key," ",$_;
    }
    print "\n";
  }
}
__DATA__
ID      Code
1       AB1234567DF345
2       FD357DC34
3       DS234

$
$
$ cat f9
1       AB1234567DF345
2       FD357DC34
3       DS234
$
$
$ ##
$ perl -lne '/^(\d+)\s+(\w+)$/ and ($x,$y)=($1,$2);
             while ($y =~ /(\D+)(\d+)/g) {
               ($p,$q) = ($1,$2);
               while ($q =~ /(.)/g) {print "$x  $p$1"}
             }' f9
1  AB1
1  AB2
1  AB3
1  AB4
1  AB5
1  AB6
1  AB7
1  DF3
1  DF4
1  DF5
2  FD3
2  FD5
2  FD7
2  DC3
2  DC4
3  DS2
3  DS3
3  DS4
$
$
$