#!/usr/bin/perl -w

print ("Please enter the location:\n");
chomp ($stuff=<STDIN>);


open STUFF, $stuff or die "Cannot open $stuff for read :$!";

while (<STUFF>) {
       
               s/QUALI_C//g ;
               print "$_/n";
}  ;