Analisando literais de string do Perl
