$^I = ".bak";

    while (<>) {
      s/Randall/Randal/g;
      print;
    }