How can I give this as input to
   use Tree::Parser;
  
  # create a new parser object with some input
  my $tp = Tree::Parser->new($input);