open(FH, $ARGV[0]); my @a = <FH>; my $full = 0; my $ex = 0; my $hard = 0; my $clear = 0; my $easy = 0; my $failed = 0; my $no = 0; foreach my $data(@a){ $full += $data =~ /FULL COMBO/; $ex += $data =~ /EX HARD CLEAR/; $hard += $data =~ /HARD C</fh>…