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