Получить расширение файла

my $ext = ($file_name =~ m/([^.]+)$/)[0];