in reply to Perl & COBOL

This is a WAG (Wild Donkey Guess):

  1. You have some COBOL source files
  2. You want to globally change some variable names in these files
  3. You have a list of current and new names for these variables in a file
  4. You want to use Perl to drive the global change-and-replace operation more intelligently than conventional tools can give you

How close am I?