#!/usr/bin/perl

use strict;
use warnings;

use Tie::File;

my @text;
tie @text, 'Tie::File', 'test_filter.txt' 
	or die "Something went wrong: $!\n";

@text = grep { !/,,,,,/ } @text;

untie @text;
exit;