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