--- a/exiacl.pl	Thu Apr 13 10:20:50 2006 +0000
+++ b/exiacl.pl	Wed Jul 12 13:24:22 2006 +0000
@@ -87,8 +87,8 @@
     $Cf->From($Cf->from)		    unless $Cf->From;
     $Cf->To($Cf->to)			    unless $Cf->To;
 
-    $Cf->Helo(map { s/[<>]//g; $_ } (split/@/, $Cf->from||"")[1] || HOSTNAME)	    
-					    unless $Cf->Helo;
+    $Cf->Helo(map { (my $x = $_) =~ s/[<>]//g; $x } (split/@/, $Cf->from||"")[1] || HOSTNAME)
+	unless $Cf->Helo;
     $Cf->dst(addr(HOSTNAME))		    unless $Cf->dst;