knoppix@Microknoppix:~$ perl -E '
> $line = qq{address 6433 main st address 6434 main st address 6435 main st\n};
> chomp $line;
> say for split m{(?=address)}, $line;'
address 6433 main st 
address 6434 main st 
address 6435 main st
knoppix@Microknoppix:~$ 

##</code><code>##

knoppix@Microknoppix:~$ perl -Mstrict -Mwarnings -E '
> open my $inFH, q{<}, \ <<EOF or die $!;
> This is the list of address
> here are the addreses
> address 6433 main st address 6434 main st address 6435 main st
> EOF
> 
> print scalar <$inFH> for 1 .. 2;
> my $line = <$inFH>;
> chomp $line;
> say for split m{\s+(?=address)}, $line;'
This is the list of address
here are the addreses
address 6433 main st
address 6434 main st
address 6435 main st
knoppix@Microknoppix:~$