Select Code to Download

Name "main::v" used only once: possible typo at ... line ...
Use of uninitialized value $_ in pattern match (m//) at ... line ..., 
+<templateFile> line 1.
street.addressstreet.address=#enter address# city.name=place state.nam
+e=unknown

if ($tmpLine =~ /$k/)

foreach $line (<currentValues>)
{
...
    seek(templateFile, 0, 0);   # <== ADD THIS LINE
    foreach $tmpLine(<templateFile>)
    ...

use strict;
use warnings;

open(my $templateFile...)

open(my $currentValues, '<', 'current.txt') or die ...