.....
 if ($line =~ /(address............)/) #13 dots for 13characters
 {
  my @values = split(' ', $line);


  foreach my $val (@values) {
    print "$val\n";    
 }    
 ......