$outputDir="$Location/statistic_file.xml"; open(OUTPUTFILE, '+<',$outputDir) or die "$outputDir : $!"; my $outputFileSize = -s $outputDir; if($outputFileSize != 0) { seek(CONFIRMEDOUTPUTFILE, -500, 2); my $lastChrs = ; my $Position = index($lastChrs, ''); my $String = substr($lastChrs, $Position); $String =~ /Bytes=\"(\d+)\" Scanned=\"(\d+)\" total=\"(\d+)\"/; truncate CONFIRMEDOUTPUTFILE, $outputFileSize-length($String); seek(CONFIRMEDOUTPUTFILE, 0, 2); print CONFIRMEDOUTPUTFILE $temp; }