use strict;
use warnings;

my $sitelist = xmlFileData ("Content", "Sitelist.txt");
my $Session;
my $str;

while (<$sitelist>) {
    chomp;
    next unless /\Q$Session->{'usrSystem'}\E/;
    $str .= MLX40Tutorials ();
}