#!/usr/bin/perl

# Always because of "_"

while (<>) {
  s/_eagle/eagle/g;
  print;
}
