d:\>perl -MO=Deparse -e "do {s/\s+/\t/; s/elementary/my dear Watson/g;} for @array;"
foreach $_ (@array) {
    s/\s+/\t/;
    s/elementary/my dear Watson/g;;
}
-e syntax OK