Select Code to Download

local $/ = q{address};    # Set record separator to 'address'.
open my $infile, '<', 'filename.txt' or die $!;
...
    next unless length;
    print "address $_\n";
}