http://www.perlmonks.org?node_id=1003616


in reply to Re^5: Split output by tabs
in thread Split output by tabs

And now try it with
my %handle = ( out => *STDOUT, err => *STDERR ); print {$handle{out}} "Test\n"; # Not possible without braces.
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ