use English; # for $INPUT_LINE_NUMBER instead of $.
# open files FILE and OUT
while (<FILE>) {
    s/REPLACEME/$filename/ if $INPUT_LINE_NUMBER == 1;
    print OUT $_;
}
# close files