my $line = <>;
    print "This is what line looks like $line \n";
  #while ($line = !<>) {
    chomp($line);
    print "This is what line looks like $line \n";
    my @items = (split /></, $line);
    printf "\n\n Item 1 $items[1], \n Item 2 $items[2],  \n Item 3 $items[3]\n";
   
#  }

Missing argument in printf at ./XML_parse line 19, <> line 1.
Invalid conversion in printf: "%20R" at ./XML_parse line 19, <> line 1.