print <<"eos";
@{[print "aaawww"]}
eos

$ perl aaawww.pl
aaawww1


;を省くと動くが、「1」とか余計なものがつくな