happy perl obfuscation #425234569807
#tags oneliners,perl

<br>

<pre>
perl -e '$foo = "hello there"; $foo =~ /(?{chop}){4}/; print "$foo\n"'
</pre>
<p>

Nuff said. <p>

You may have to look up what (?{...}) does in <code>perldoc perlre</code>