unlink $file if $_ =~ m/.BGV/;