my $data =~ s@@@gs;