use strict;
use warnings;
use HTML::TreeBuilder;
use Data::Dumper;

while ( <DATA> ) {
	my $tree = HTML::TreeBuilder->new_from_content($_);
	my $body = $tree->look_down("_tag" => "body" );
	my $contents = ( $body->content_list() )[0];
	print "$contents\n";
}

__DATA__
<user_name>$userId</user_name>
<job_id>$jobId</job_id>
<finish_time>$timeF$ampmF</finish_time>
<status>COMPLETED</status>