All the Perl that's Practical to Extract and Report
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? :)