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

19:34 >