Try This

$str = "The, Sample, sents, kdsjf, jdfhj";
for (split(/,/, $str,3))
{
print ;
}
[download]

or

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