Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
warn Dumper $str;

warn "WORKS!" if $str =~ m/^ +$/;
  2. or download this
    C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/utf8.pl 
$VAR1 = " 1 i \x{e1} \x{3c3} _ ";
$VAR1 = '      ';
WORKS! at d:/tmp/pm/utf8.pl line 12.