[SMV]

Код:

 #!/usr/bin/perl -w
 
 my $str=$ARGV[0];
 my $path=$ARGV[1];
 my @grep_out=`grep $str $path/*`;
 my ($file,$s);
 
 foreach $file (@grep_out){
     ($file,$s) = split(':', $file); 
     print "rm $file...\n";
     unlink $file;
 }

Можно, например, так.