@file_names = map{ substr($_, 0, -4) } @file_names;

# alternativelly
@file_names = map{ /(.*).{4}/ } @file_names;