
<html>

<head>

<style>

.hmmessage P

{

margin:0px;

padding:0px

}

body.hmmessage

{

FONT-SIZE: 10pt;

FONT-FAMILY:Tahoma

}

</style>

</head>

<body class='hmmessage'>

Primeiro gostaria de agradecer a todos (Lorn, Fernando, Blabos, <br>Breno, Marco e Gabriel) pelas respostas. Mas, concordo com o Marco, <br>primeiro eu vou preocupar em resolver os meus problemas e depois<br>que tiver mais experiencia, como vocęs, vou analisar o que é melhor (:<br>Portanto...<br><br>#! D:\Perl\bin\Perl.exe<br><br>use warnings;<br>use strict;<br><br>my $cont;<br>my $string = 'Estou feliz, passei em Matematica Discreta I, feliz!';<br>&amp;aparece($string);<br><br>sub aparece{<br>&nbsp; my $frase = shift();<br>&nbsp; $cont++ while $string =~ m/feliz/g;<br>&nbsp; print "Feliz apareceu $cont vezes\n";<br>}<br><br /><hr />Receba GRÁTIS as mensagens do Messenger no seu celular quando vocę estiver offline. Conheça  o MSN Mobile! <a href='http://mobile.live.com/signup/signup2.aspx?lc=pt-br' target='_new'>Cadastre-se já!</a></body>

</html>