last if((split(/\s/,$in))[-1] eq '0'));