#!/usr/bin/perl -wT

use strict;

open(FH, "file");
while(<FH>) {
  next until (/USE/);
  my $line = s/\\//g;
  print $line until (/USE/);
}
close(FH);