use strict;
use warnings;

use Tie::File;

tie my @xfil, 'Tie::File', 'var.txt' or die $!;

@xfil = map { s/the line to be replaced/this is the new line/; $_ } @xfil;

untie @xfil;