while (<INFILE>)
{
	my($line) =$_;
	chomp($line);
  if ($line =~ /(address............)/) #13 dots for 13characters
 {
  my @values = split(' ', $line);


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