Select Code to Download

sub count_instances {
my $list = join ' ', shift();
...

return $list =~ /\b$val\b/;
}

sub count_instances {
my $list = shift;
...

return $list =~ /\b$val\b/;
}