Help for this page
#!/usr/bin/env perl ... my @tests = qw{jHj8nniO I87jjj8y jUjngnkk ikbHH 12345 !@$%^&*}; my @words = grep { /[A-Za-z]/ && /\d/ } @tests; print "@words\n";
jHj8nniO I87jjj8y