sub parseresult
{
  my @text = split( / /, @_ );
  my $temp;
  foreach (@text)
  {
    print("Text: @text\n");
    $temp = @_;
    $temp =~ s/\$bot\{(.+)\}/$bot{$1}/eg;
    print("Parsed: $temp\n"); 
  }
  return $temp;
}