Select Code to Download

use strict;
use warnings;
...
ok( $ch !~ /\W/ );
ok( $ch =~ /[\w]/ );   # Should fail according to the docs.
ok( $ch !~ /[\W]/ );   # Should fail according to the docs.

>c:\progs\perl588\bin\perl test.pl
ok 1
...
#   Failed test in test.pl at line 20.
1..8
# Looks like you failed 1 test of 8.

>c:\progs\perl5100\bin\perl test.pl
ok 1
...
#   Failed test at test.pl line 20.
1..8
# Looks like you failed 1 test of 8.