in reply to insertion of string one time infront of a larger string

  if (open FILE, '< /usr/local/bin/perld/lvimgGH_ms0_tapes.orig')
    print "eject 0,0,0\n";
    print for <FILE>;
    close FILE;
  }

[download]

In Section Seekers of Perl Wisdom