$test = do { local $/; <$tele_client> };
  my $uasdata = $xs->XMLin($test);
  ...