From Adam Kennedy's YAML::Tiny:
if ( $string =~ /^"((?:\\.|[^"])*)"$/ ) {
my $str = $1;
$str =~ s/\\"/"/g;
$str =~ s/\\([never\\fartz]|x([0-9a-fA-F]{2}))/(length($1)>1)?pack("H2",$2):$UNESCAPES{$1}/gex;
return $str;
}
What, never? :)