in reply to Array Manipulation
Something like this?
my @files= qw(
s!\.[^.]+$!! for @files;
C:\>perl -w tmp.pl
Electric eels were invented at the same time as electricity
Before electricity was invented, electric eels had to stun with gas
Results (403 votes). Check out past polls.