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


in reply to Spining "stick"

perl -e '{print "$_\b" for qw( | / - \ ); redo}'

-- Frank

In Section Seekers of Perl Wisdom