Perl : 把quotemeta反过来，反转义

见：http://www.perlmonks.org/?node_id=91629

       
sub reverse_quotemeta {
    my ($data) = @_;
    my $string = '$data = "' . qq|$data| . '";';
    eval $string;
    return $data;
} ## end sub reverse_quotemeta