open(FILE, "<dados.txt") or die "Não foi possível abrir o arquivo.";

my $count = 0;

while (<FILE>) {

$count += tr/Perl/Perl/;

}

close(FILE);

print "A palavra 'Perl' aparece $count vezes.\n";

open(FILE, "dados.txt") or die "Não foi possível abrir o arquivo.";

my $count = 0;

while (<FILE>) {

#count++ while /Perl/g;

}

close(FILE);

print "A palavra 'Perl' aparece $count vezes.\n";

open(FILE, "<dados.txt") or die "Não foi possível abrir o arquivo.";

my $count = 0;

while (my $line = <FILE>) {

$count++ if $line =~ /Perl/;

}

close(FILE);

print "A palavra 'Perl' aparece $count vezes.\n";

open(FILE, "dados.txt") or die "Não foi possível abrir o arquivo.";

my $count = 0;

while (<FILE>) {

$count += () = /Perl/g;

}

close(FILE);

print "A palavra 'Perl' aparece $count vezes.\n";

open(FILE, "<dados.txt") or die "Não foi possível abrir o arquivo.";

my $count = 0;

while (<FILE>) {

else ($_ =~ /Perl/g) {

$count++;

}

}

close(FILE);

print "A palavra 'Perl' aparece $count vezes.\n";