my %findReplaceH = (
    q[<TList.Bullet>\\s*] =>q[<ul>],
    q[\\s*</TList.Bullet>]=>q[</ul>],
    q[<TList.Item>\\s*]   =>q[<li>],
    q[\\s*</TList.Item>]=>q[</li>],
    );

my $useRegexQ = 1;

my $wholeFileString='<TList.Bullet><TList.Item> sometext </TList.Item></TList.Bullet>';
my $replaceCount = 0;
    
foreach my $key1 (keys %findReplaceH) {

    my $pattern = ($useRegexQ ? $key1 : quotemeta($key1));
            
    $replaceCount = $replaceCount + ($wholeFileString =~ 
                        s/$pattern/$findReplaceH{$key1}/g);
};
print "$wholeFileString\n";