open my $INF, '<', $filename;
open my $OUF, '>', $filename . ".new";

my @lines = <$INF>;
$lines[2] = "12345\n";

print $OUF @lines;