my $str = 'ban go ban';
my $count =()= ($str =~ /ban/g);
print $count;
my $count_again = ($str =~ /ban/g);
print "\n$count_again";