local $/ = "# input for  ";
while (<FILE1>) {
($hash, $input, $for, $aa) = split( /\s+/, $_) if /^\# \input\b.*/;

if  ($aa =~ /LEU\b/)  
    {$. ==1 && s/    (.*)/$z3leu  $z2leu  $z1leu   $1/}

if ($aa =~ /ALA\b/)
    {$. ==4  && s/    (.*)/$z3leu  $z2leu  $z1leu   $1/}