/Record(\d+):/ && do {
  $recnum = $1;
  s/$str1/$str2/g;
  s/$str3/$str4/g;
  ..
}