sub _{fork?wait:return$_ for@_}
print _(split //,qq{Just another Perl Hacker,});