You can embed Perl inside any literal strings in this fashion.my @a = ( 'a', 'x', 'z' ); my $match = qr/^[@{[ join '', @a ]}]{3}$/; while(<>) { print if /$match/; }
Makeshifts last the longest.
In reply to Re: Character class in an array
by Aristotle
in thread Character class in an array
by nikto
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |