while ($data =~ /REGEX/g)
{
  $data =~ s/REGEX/rep/;
}