sub new {
  ...

  $self->{tokens} = \%tokens;

  ...
}

##</code><code>##

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);
}

##</code><code>##

sub loadAndParse($%)
{
    my $self = shift;
    my ($filename,%tokens) = @_;
    $data = loadFile($filename);
    $body = parseData($data, %tokens);
    $debug .= "parseData has been run<br>";    
   
    return($body);
}