Select Code to Download

my $count = $string =~ tr/;/;/

my $count = $string =~ tr/;//

# my $count = $_ =~ tr/;//   # same thing
my $count = tr/;//

my $count = 0;

...
    {
    $count += tr/;//
    }

my $count = 0;

...
    {
    $count += my @cities = split /;/;
    }