$line =~ s/[^a-zA-Z]+//g;