$str = <<'EOPAGE';
Some html
TNAV
Some more html
EOPAGE

$str =~ s/TNAV/$tnav/;