use strict;
use warnings;

my @tmp01 = ();
    
push @tmp01, map{ $_."\n"} split " " while <DATA>;

exit;

__DATA__
foo bar
   munch
bar
foo bar