use Data::Dumper;

__END__  #Result:
while ( <STDIN> ) {
    my @foo = /(\s+)/;

    print Dumper \@foo;
}

C:\> test.pl
cat food
$VAR1 = [
          ' '
        ];