#!/usr/bin/perl

$ls_html = "/home3/www/amsu/spac/32/ls_html.txt";

$newslot = 32;

open(infile1,"< $ls_html") || die "Can't open $log_file!\n";

while(<infile1>){

    chop $_;

     ($g,$a,$r,$b,$a,$g,$e,$i,$htmlfile)=split(/\s+/,$_);



      foreach $file ($_) {

        $slot = substr($htmlfile,8,2);
        $first = substr($htmlfile,0,8);

        print "first is $first\n";
        print "slot is $slot\n";
        print "last is $last\n";

        $last = substr($htmlfile,10,10);

        $sed_file = "sed 's/$slot/$newslot/g' $htmlfile > $first$newslot$last";
        system($sed_file);

      }

}

close(infile1);