perl weird1.pl 69