my $file = read_file($ARGV[0], { binmode => ':raw' });
my $x00 = $file =~ tr/\x00//;
my $size = (stat($ARGV[0]))[7];
my $dec = $x00/$size;
my $pc = ($dec*100);
my $percentage00 = sprintf("%.2f", $pc);

.....
same code, but tr/\x01// thru tr/\xfe//
.....

my $xff = $file =~ tr/\xff//;
my $dec = $xff/$size;
my $pc = ($dec*100);
my $percentageff = sprintf("%.2f", $pc);

close($file);

my $sum =   $percentage01+$percentage02+$percentage03+$percentage04+$percentage05+$percentage06+
			$percentage07+$percentage08+$percentage09+$percentage0a+$percentage0b+$percentage0c+
			$percentage0d+$percentage0e+$percentage0f+$percentage10+$percentage11+$percentage12+
			$percentage13+$percentage14+$percentage15+$percentage16+$percentage17+$percentage18+
			$percentage19+$percentage1a+$percentage1b+$percentage1c+$percentage1d+$percentage1e+
			$percentage1f+$percentage20+$percentage21+$percentage22+$percentage23+$percentage24+
			$percentage25+$percentage26+$percentage27+$percentage28+$percentage29+$percentage2a+
			$percentage2b+$percentage2c+$percentage2d+$percentage2e+$percentage2f+$percentage30+
			$percentage31+$percentage32+$percentage33+$percentage34+$percentage35+$percentage36+
			$percentage37+$percentage38+$percentage39+$percentage3a+$percentage3b+$percentage3c+
			$percentage3d+$percentage3e+$percentage3f+$percentage40+$percentage41+$percentage42+
			$percentage43+$percentage44+$percentage45+$percentage46+$percentage47+$percentage48+
			$percentage49+$percentage4a+$percentage4b+$percentage4c+$percentage4d+$percentage4e+
			$percentage4f+$percentage50+$percentage51+$percentage52+$percentage53+$percentage54+
			$percentage55+$percentage56+$percentage57+$percentage58+$percentage59+$percentage5a+
			$percentage5b+$percentage5c+$percentage5d+$percentage5e+$percentage5f+$percentage60+
			$percentage61+$percentage62+$percentage63+$percentage64+$percentage65+$percentage66+
			$percentage67+$percentage68+$percentage69+$percentage6a+$percentage6b+$percentage6c+
			$percentage6d+$percentage6e+$percentage6f+$percentage70+$percentage71+$percentage72+
			$percentage73+$percentage74+$percentage75+$percentage76+$percentage77+$percentage78+
			$percentage79+$percentage7a+$percentage7b+$percentage7c+$percentage7d+$percentage7e+
			$percentage7f+$percentage80+$percentage81+$percentage82+$percentage83+$percentage84+
			$percentage85+$percentage86+$percentage87+$percentage88+$percentage89+$percentage8a+
			$percentage8b+$percentage8c+$percentage8d+$percentage8e+$percentage8f+$percentage90+
			$percentage91+$percentage92+$percentage93+$percentage94+$percentage95+$percentage96+
			$percentage97+$percentage98+$percentage99+$percentage9a+$percentage9b+$percentage9c+
			$percentage9d+$percentage9e+$percentage9f+$percentagea0+$percentagea1+$percentagea2+
			$percentagea3+$percentagea4+$percentagea5+$percentagea6+$percentagea7+$percentagea8+
			$percentagea9+$percentageaa+$percentageab+$percentageac+$percentagead+$percentageae+
			$percentageaf+$percentageb0+$percentageb1+$percentageb2+$percentageb3+$percentageb4+
			$percentageb5+$percentageb6+$percentageb7+$percentageb8+$percentageb9+$percentageba+
			$percentagebb+$percentagebc+$percentagebd+$percentagebe+$percentagebf+$percentagec0+
			$percentagec1+$percentagec2+$percentagec3+$percentagec4+$percentagec5+$percentagec6+
			$percentagec7+$percentagec8+$percentagec9+$percentageca+$percentagecb+$percentagecc+
			$percentagecd+$percentagece+$percentagecf+$percentaged0+$percentaged1+$percentaged2+
			$percentaged3+$percentaged4+$percentaged5+$percentaged6+$percentaged7+$percentaged8+
			$percentaged9+$percentageda+$percentagedb+$percentagedc+$percentagedd+$percentagede+
			$percentagedf+$percentagee0+$percentagee1+$percentagee2+$percentagee3+$percentagee4+
			$percentagee5+$percentagee6+$percentagee7+$percentagee8+$percentagee9+$percentageea+
			$percentageeb+$percentageec+$percentageed+$percentageee+$percentageef+$percentagef0+
			$percentagef1+$percentagef2+$percentagef3+$percentagef4+$percentagef5+$percentagef6+
			$percentagef7+$percentagef8+$percentagef9+$percentagefa+$percentagefb+$percentagefc+
			$percentagefd+$percentagefe;
			

			
			print "0x00 percentage: $percentage00\n";
			print "0xFF percentage: $percentageff\n";
			my $average = $sum/254;                #divided by 254 because i just wanted to average everything inbetween x00 and xff
			$average = sprintf("%.3f", $average);
			print "0x01 - 0xFE percentage: $average\n\n";