green@green:~$ perl -wle '(1 x $_) !~ /^(1{2,}?){2,}$/ && print while ++ $_'<br>1<br>2<br>3<br>Segmentation fault<br>green@green:~$ perl -V<br>Summary of my perl5 (revision 5 version 8 subversion 8) configuration:<br>
Platform:<br> osname=linux, osvers=2.6.24-19-server, archname=i486-linux-gnu-thread-multi<br><br>