sub parseData($)
{
    my $self = shift;
    my ($data, %tokens) = @_;
    foreach my $match($data =~ /\%(\S+?)\%/g)
    {
        if($tokens{$match})
            { $data =~ s/%$match%/$tokens{$match}/g; }
        else
            { $data =~ s/%$match%//g; }
    }
    $debug .= "parseData has been run<br>";    
   
    return($data);
}