@file = split(/\./, $file_name);