Overwrite with empty string in a file read line Perl
þþ xFE þþ xFE þþ xFE þþ xFE þþ xFE þþ xFE þþ xFE þþ xFE þþ

my $data = 'aaZbbZccZddZeeZff';
$data =~ s/((?:..Z){3})../1/;
print $data;
print "n";

my $data = 'aaZbbZccZddZeeZff';
my @data = split('Z',$data);
splice(@data,3,1);
print $data;
print "n";