update processing bam file with perl