$_ = substr($_, 0, 24) for @array;
[download]

well, let me take a crack at it:

use strict;

my $string = 'Fri Oct 13 2000 20:11:54                                
+        Page  1';
my @array = ($string, $string, $string);

for (@array) {
        $_ =~ s/\:(\d+)\b(\s)+(\w)+(\s)+(\d)+/:$1/;
}

print "$array[0]\n$array[1]\n$array[2]\n\n";
[download]

/home/jptxs > perl -w impala
Fri Oct 13 2000 20:11:54
Fri Oct 13 2000 20:11:54
Fri Oct 13 2000 20:11:54

/home/jptxs >
[download]

"sometimes when you make a request for the head you don't
want the big, fat body...don't you go snickering."
                                         -- Nathan Torkington UoP2K a.k.a gnat

Here's one way to do it, using a regex to match the HH:MM:SS timestamp that occurs at the end of the date string.

use strict;
my @dates;
# read in @array, then ..

foreach (@array) {
    # there is no doubt a more stylish way to do this, but ...
    #regex matches the part of $_ up to the point it finds the pattern
    # two digits followed by a colon (etc.)
    /(^.*?\d\d:\d\d:\d\d)/;
    # pushes the part of the string matched into the dates array
    push @dates,  $1;
}
[download]

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

s/\s{10}.*//  for  @array;
[download]

Removes the first break of 10 or more spaces (or other white space characters) and any characters after that.

for (@yourarray) {
    chomp; # maybe
    my @ary = split / /, $_;
    for (0..1) {
      pop @ary;
    }
    print "@ary\n";
}
[download]

Go one step further:

for (@yourarray) {
    my @ary = (split/ /, $_, 5)[0 .. 4];
}
[download]

or even the also untested:

@yourarray = map { join(" ", (split(/ /, $_))[0 .. 4]) } @yourarray;

I was trying to avoid the slice of the first few, I don't know why ;-), I fancied lopping two items off the end.
too lazy to use splice......

splice(@ary, -2);
[download]