...
open my $fh, '<', $file or die "Cannot open file $file: $!";
my $headers = grep /^>/, <$fh>;
close $fh or die "Cannot close file $file: $!";

if ($headers <= 3) {
    unlink ...