Shell Programming and Scripting

#!/usr/bin/perl -w
$f="gchistory.dat";
$c=`wc -l < $f`;
$start = 1;
$end = $c;
$skip = 1;
for($i=$start; $i<=$end; $i+=$skip) {
    open(FILE, "enc$i.dat");
    $inline=<FILE>;
    my @values = split(/ ~ /, $inline);
    foreach my $val (@values) {
                open(EFILE, ">e_$i.dat");
                $count = ($inline =~ tr/~//);
                $jstart = 1;
                $jend = $count;
                $jskip = 1;
                for($j=$jstart; $j<=$jend; $j+=$jskip) {
                    printf(EFILE "@values[$j]\n");
                }
                close(EFILE);
    }
    close(FILE);
}
system("rm -f enc*.dat");