my $line = <>;
    print "This is what line looks like $line \n";
  while (defined($line = <>)) {
    #chomp($line);
    print "This is what line looks like $line \n";
    my @items = (split /N/, $line);
    #printf "\n\n\nCustomer Name: %-24s \n", $items[31], $items[32], [33];
    print  "\n\n\n.ELEPHANTS\n";
   
  }