map { my $s = $_; $s =~ s/\\(.)/$1/sg; $s =~ s/://g; $s }