--$  ./perl_question.pl
ABD
--$