($R,$B)=(q, another,,q( Perl hacker,),$a=Just);$,
=$V;m;(.)\(\)?;;*V=$::{$1};$\=$V;BEGIN{$|;$_=\$::
{b};m;(.)\(\)?;;*V=$::{$1}}print @$_ for [$a,$b],