http://qs1969.pair.com?node_id=257745


in reply to Grabbing tokens

Use backticks (' `command` ' or ' qx|command| '), like this:
bash-2.05$ perl -le '$_ = qx[uname -a]; split; print join q[ :: ], @_' SunOS :: prdapp5 :: 5.8 :: Generic_108528-15 :: sun4u :: sparc :: SUNW +,Ultra-Enterprise
Apologies for using a different command, but I don't have access to ActivePerl right now :}