+
+ s/\$/\$ \n\t /g;
+ s/Dongs/Hlagh/g;
+
+ eval "die qq{ok\\n}; use indirect; $_";
+ is($@, "ok\n", "use indirect, spaces: $_");
+
+ eval "die qq{the code compiled but it shouldn't have\n}; no indirect; $_";
+ like($@, expect('Hlagh'), "no indirect, spaces: $_");