my @str = split //;
for (my $i = 1; $i < scalar(@str) - 2; $i++) {
   if ($str[$i] eq 'B' && $str[$i+1] eq 'G' && $str[$i+2] eq 'V') {
      unlink $file;
      $i = scalar(@str) - 2;
   }
}