Matthew.van.Eerde wrote:
> Matthew.van.Eerde wrote:
>
> # $lc_subject eq 'f r e e stuff'
>
> 1 while $lc_subject =~ s/\b(\S) (\S)\b/$1\t$2/g;
This is probably still too loose. \S should really be \w...
1 while $lc_subject =~ s/\b(\w) (\w)\b/$1\t$2/g;
Otherwise it will match on things like
[Mimedefang] a question:
bS Sb
where the first \b is between "g" and "]", and the second is between "a" and " "
--
Matthew.van.Eerde (at) hbinc.com 805.964.4554 x902
Hispanic Business Inc./HireDiversity.com Software Engineer
perl -e"map{y/a-z/l-za-k/;print}shift" "Jjhi pcdiwtg Ptga wprztg,"
_______________________________________________
Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list
[email protected]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
