#########################################################################
#
#  Script to do global replace
#
#########################################################################

$file = 'foxy.pdf';
print "changing file: $file\n";

  open HFILE, $file or die "failed to open $file for input ($!)\n";
  @line = <HFILE>;
  close HFILE;
  
  open HFILE, '>'.$file or die "failed to open $file for output ($!)\n";
  
  foreach $line (@line) {
    chomp $line;
    
    $line =~ s/TTTT/Mr/g;
    $line =~ s/NNNN/Bloggs/g;
    
    print HFILE "$line\n";
  }
  close HFILE;