#/usr/bin/perl -w foreach x (../T0*/decoys/evaluate.rdb) echo $x row name "=~" keasar <$x | row rmsd "<" 3 | row real_hbond "<" 0.4 end