Select Code to Download

sub test {
    my $s = shift;
...
    }
    print "$s doesn't match\n";
}

sub test {
    my $s = shift;
...
    }
    print "$s doesn't match\n";
}

sub test {
    my $s = shift;
...
    }
    print "$s does not contain non-xyz characters.\n";
}