while (<>) {
    my ($foo) = /= (\S+)/;
    push @array, $foo; 
}