From ian.bissett at tekuiti.co.uk Wed Nov 27 05:36:07 2002 From: ian.bissett at tekuiti.co.uk (Ian Bissett) Date: Mon Aug 2 21:30:46 2004 Subject: [Hull-pm] test Message-ID: <200211271136.07608.ian.bissett@tekuiti.co.uk> test mail -- Regards, Ian Bissett ian.bissett@tekuiti.karoo.net.uk #!/usr/bin/perl @a=(Lbzjoftt,Inqbujfodf,Hvcsjt); $b="Lbssz Wbmm" ;$b =~ y/b-z/a-z/ ; $c =" Tif ". @a ." hsfbu wj" ."suvft pg b qsphsbnnfs". ":\n";$c =~y/b-y/a-z/; print"\n\n$c ";for($i=0;$i<@a; $i++) { $a[$i] =~ y/b-y/a-z/;if($a[$i]eq$a[-1]){print"and $a[$i]." ;}else{ print"$a[$i], ";}}print"\n\t\t--$b\n\n";