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:~$