#!/usr/bin/perl -wT

use strict;

my $file = "pancho-ng";

open(FH, $file);
while(<FH>) {
  tr/\\\@/@/d;
  print if /USE/.../USE/ and !/USE/;
}
close(FH);