#!/usr/local/bin/perl -w
my %tokens= ( 'general-scheduledb' => 'e:\users\dbush\schedule.db',
              'animal-type' => 'mammal',
              'species' => 'camel',
            );
my $inistring='start2=schedule.exe;schedule "localhost:%general-scheduledb%";NORMAL_PRIORITY_CLASS;%species%';
$inistring =~ s/%([^%]+)%/$tokens{$1}/eg;
print $inistring;
__END__
start2=schedule.exe;schedule "localhost:e:\users\dbush\schedule.db";NORMAL_PRIORITY_CLASS;camel