$line	=~ s/[0-9].*$//g;