Select Code to Download

my $data;
{
  local $/ = undef; # local means this change will be reversed at the 
+end of the block
  $data = <$in_fh>;
}

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