for my $x ( @results ) {
    chomp $x;
    my ($date) = split /'[A-z]*.[0-9]*.[0-9]*:[0-9]*:[0-9]*/, $x;
    push @out, $date; 
}