in reply to Does Perl have something like the "-e " option of sed in unix

you could try: 
    $a = "12345678\n";

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

    print $a;

[download]
--Dave

In Section Seekers of Perl Wisdom