#!/usr/bin/perl -i.bak -p

BEGIN {
   open(DAT,'gpepsmod.dat');
   while (<DAT>) {
      if (/^(\S+)\s/) {
          $subst{$1}=$_;
      }
   }
   close(DAT);
}

$_=$subst{$1} if /^(\S+)\s/ && defined($subst{$1});
