#! /usr/bin/perl -w

while (<>) {
  s/\\(.)/$1/g;
  print;
}