my ($filename, $code_number) = split(/\./, $_, 2);

##</code><code>##

    next if ( $_ eq '..' );
    next if ( $_ eq '.' );

##</code><code>##

    next if /^\.\.?$/;