Select Code to Download

#!/usr/bin/perl
use strict;
...
    my $s = shift;
    print $s =~ /[xyz]/ ? "$s matches\n" : "$s does not match\n";
}

#!/usr/bin/perl
use strict;
...
    }
    print "$s matches\n";
}