perl -e 'print qq|Enter q or Q to quit|; ($list = <STDIN>);'

##</code><code>##

  perl -e 'print qq|Give me 20 #s now dammit! |; ($list = <STDIN>); my @stuff = split q| |, $list; print scalar @stuff;'

##</code><code>##

 perl -e 'my $work = q~     ~; if ($work eq q| | x 5){print 1};'