Help for this page

Select Code to Download


  1. or download this
    if ($line =~ m/([\0-\x8\xb-\x1f\x7e-\xff])/) {
  print "$line contains illegal character (ord: ", ord($1), ")\n";
}
  2. or download this
      @character=split /\.*/;
  while (@character){
  3. or download this
      @character=split //; # split $_ into single characters
  while (@character){