if ($pdb_res == $value[$i]) {s/100\.0/3.0/};

##</code><code>##

($pdb_res) = (split /\s+/,$_) [3];

##</code><code>##

$pdb_res = (split)[3];