#!perl -w
while (<>)
{
  chop;
  /^(.*lokey=)(\d+)(.*hikey=)(\d+)(.*pitch_keycenter=)(\d+)(.*)$/ or next;
  $lo = sprintf("%03i", $2 - 12);
  $hi = sprintf("%03i", $4 - 12);
  $kc = sprintf("%03i", $6 - 12);
  print "$1${lo}$3${hi}$5${kc}$7\n";
}