I hope this will help u .

#! /usr/bin/perl
use warnings;
use strict;
my $string = "The Expo is not the place to promote trade, this is abou
+t culture,";
my $count = ($string =~ tr/,/ /);
print $count;
[download]