#!/usr/local/bin/perl

open INFILE, "<myInfile.txt" or die "cannot open myInfile.txt $!\n";

open OUTFILE, ">myOutfile.txt" or die "cannot open myOutfile.txt $!\n"
+;

while ( <INFILE> )
{
    if ( /^address/ )
    {
        chomp;
        my ($tag, $value) = split(/=/, $_);
        print OUTFILE $value, "\n";
    
    }

}
close INFILE;
close OUTFILE;
[download]