perl -e "my $var; 'string'=~/[$var]/"