$cnt =0;
while($str =~ /(.*?),/g)
{
$cnt++;
print $&, if($cnt ==3);
}