$a = "12345678\n";

    for ($a) {s/1/a/; s/4/b/; s/7/c/}

    print $a;