Select Code to Download

Dumper %RegHash = $error;

            # Dumper %RegHash = $error;
            # while (@set = 2)
...
                 
                next; # added
            }

.3/ = /
.386/ = /
...
.ace/ = /
.acf/ = /
...

#!/usr/bin/perl
use warnings;
...

    print "$class = $RegHash{'/'}\n" if exists $RegHash{'/'};
}

.3/ = 3_auto_file
.323/ = h323file
...
.3gp/ = QuickTime.3gp
.3gp2/ = QuickTime.3gp2
...