Help for this page

Select Code to Download


  1. or download this
    c:\@Work\Perl>perl -wMstrict -MO=Deparse,-p -le
"my $line = qq{xyz\x80\x90\xa0abc};
...
(not ($line =~ s/[^[:ascii:]]//g));
print("'${line}'");
-e syntax OK
  2. or download this
    c:\@Work\Perl>perl -wMstrict -le
"my $line = qq{xyz\x80\x90\xa0abc};
...
Useless use of negative pattern binding (!~) in void context at -e lin
+e 1.
'xyzÇÉáabc'
'xyzabc'