$z1 = <STDIN>;
chop $z1;