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

$. == 1 && $aa =~ /LEU\b/ && s/    (.*)/$z31eu $z2leu $z1leu  $1/;

print output "$_";
                }