Shell Programming and Scripting

$ cat infile
12345|Hema|02|English|Hindi
4567|Basha|03|Engligh|Hindi|Telegu
$ cat script.pl
use warnings;
use strict;

die qq[Usage: perl $0 <input-file>\n] unless @ARGV == 1;

while ( <> ) {
        chomp;
        my @f = split /\|/;
        for my $i ( 3 .. $#f ) {
                printf qq[%s\n], join qq[|], @f[0..1], $f[ $i ];
        }
}
$ perl script.pl infile
12345|Hema|English
12345|Hema|Hindi
4567|Basha|Engligh
4567|Basha|Hindi
4567|Basha|Telegu

$ awk 'BEGIN {FS=OFS="|"}{for (i=4;i<=4+($3-1);i++) {print $1,$2,$i}}' file
12345|Hema|English
12345|Hema|Hindi
4567|Basha|Engligh
4567|Basha|Hindi
4567|Basha|Telegu
$

$ nawk -F\| '{for(i=4;i<=NF;i++){a[i]=$1"|"$2"|"$i}{for(i in a){print a[i]}}}' sample.txt
12345|Hema|English
12345|Hema|Hindi
4567|Basha|Engligh
4567|Basha|Hindi
4567|Basha|Telegu

while read line    
do    
	emp_id=`echo $line | awk -F'|' '{print $1}'`
	name=`echo $line | awk -F'|' '{print $2}'`

	counter=`echo $line | awk -F'|' '{print $3}'`
	counter1=4 

 	while [[ $counter -gt 0 ]]  
	do
	  								
		language=`echo $line |cut -f$counter1 -d"|"`
									
		counter1=`expr $counter1 + 1`
		counter=`expr $counter - 1`
									
		echo $emp_id'|'$name'|'$language>>file1.txt
	done


done <file.txt