Use Data::Dump::Streamer to do the deparsing for you. (This is also mentioned in perl-hacks I think :-)

use Data::Dump::Streamer;
my $hd = sub { '[]' =~ /\\[\\]/ };
Dump($hd)->Names('hd')->Out();
__END__
$hd = sub {
        '[]' =~ /\\[\\]/;
      };
[download]