$line =~ s/.$//;