Help for this page

Select Code to Download

Select or download this
```
/[[:punct:]]/
/\p{IsPunct}/
```

Select or download this

for $x ( 0x20 .. 0x7e ) { 
    $_ = chr( $x );
...
    $res .= ( /\p{IsPunct}/ ) ? " matches  {IsPunct}" : " fails on {Is
+Punct}";
    printf( " 0x%x (%3d.) %s %s\n", $x, $x, $_, $res ) if ( $res =~ /m
+atches/ );
}