my $var = print "foo bar";
print "$var\n"