gets
loop{$_[putc~/\./]=''}