Select Code to Download

.....
 if ($line =~ /(address............)/) #13 dots for 13characters
...
    print "$val\n";    
 }    
 ......

address
6433
...
6435
main
st

#!/usr/bin/perl
use warnings;
...
This is the list of address
here are the addreses
address 6433 main st address 6434 main st address 6435 main st

This is the list of address
here are the addreses
address 6433 main st
address 6434 main st
address 6435 main st