Select Code to Download

#!/usr/bin/env perl

...
$dump =~ s/\$a;\n\}//ms;

say "\$a = bless( {\n$dump";

Before:
----------------------------------------------------------------------
+------
...
$a->{circular_ref} = $a;
$a->{internal_ref} = $a->{however}{this};