Select Code to Download

use strict;
use Tie::File;
...
    s/    (.*)/$z3leu  $z2leu  $z1leu   $1/
  }
};

perl -pe "/LEU\b/ and s/    (.*)/$z3leu  $z2leu  $z1leu   $1/"