green@green:~$ perl -wle &#39;(1 x $_) !~ /^(1{2,}?){2,}$/ &amp;&amp; print while ++ $_&#39;<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>
&nbsp; Platform:<br>&nbsp;&nbsp;&nbsp; osname=linux, osvers=2.6.24-19-server, archname=i486-linux-gnu-thread-multi<br><br>