Select Code to Download

#! perl
use strict;
...
print "\$s   = $s\n";
print "\%dic = ";
dd     \%dic;

19:34 >perl 1011_SoPW.pl
Use of uninitialized value within %dic in substitution iterator at 101
+1_SoPW.pl line 10.
...
%dic = { "aaa\\s+bbb" => "new" }

19:34 >