my $logfiles ="TraceLog_.txt";
open(my $FH, '<', $logfiles) or die $!;
while (my $line = <$FH>) {
    print "Found: $1\n" if $line =~ m!<UserName>(.*)</UserName>!;
}