Help for this page
my ($filename, $code_number) = split(/\./, $_, 2);
next if ( $_ eq '..' ); next if ( $_ eq '.' );
next if /^\.\.?$/;