in reply to Delete Trailing Characters
@file_names = map{ substr($_, 0, -4) } @file_names; # alternativelly @file_names = map{ /(.*).{4}/ } @file_names; [download]
0 1 2 3 4 5 6 7
Results (675 votes), past polls
