Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump qw(dd);
...
(?^msx: \132 | \130 | \104\125\102\131\101 | \102\105\105 )
'the BEEroDUBYAn foX jumped the laZy dog'
'the BroWn foEKS jumped the laZEEy dog'

c:\@Work\Perl>perl -wMstrict -le
"my $s = '>nbsp< hi nbsp there';
...
Unrecognized escape \s passed through at -e line 1.
'>nbsp< hi nbsp there'
'>s< hi s there'

if($line =~ /[^[:ascii:]]/){
  $line =~ s/([^[:ascii:]])/ ... lotsa subexpressions ... /ge;
  print "Unhandled sequence: $line\n";
  }

c:\@Work\Perl>perl -wMstrict -e
"my $s = 'aXbYcZd';
...
"
'aXbYcZd'
unhandled sequence: 'a[88/0X58/0130]b[89/0X59/0131]c[90/0X5A/0132]d'

c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump qw(dd);
...
(?^msx: nbsp | \132 | \130 | \102\105\105 )
'the BEErownbspfoX >nbsp< the laZy dog'
'the Brow foEKS > < the laZEEy dog'