#!/usr/local/bin/perl

while (<>) {
  print;
  if (/^file\s/) {
    print "prec doublecomplex\n";
  }
}

.