my $var =~ m/\w/i;