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