note
premchai21
<code>
#!/usr/bin/perl
use strict;
sub interlace {
### ENGAGE GOLF MODE ###
my@a=@_;my$z='';($z=chop($a[0]).chop($a[1]).$z)while($a[0]||$a[1]);$z
### DISENGAGE GOLF MODE ###
}
print interlace 'Ti sats.', 'hsi et ';
</code>
<p>69 chars with strict on, according to Emacs.
<p><strong>Update:</strong> D'oh! Changed something and forgot to change the other part to match. Now is six characters longer.
77203
77203