perl -ple"BEGIN{$/=qq'\n>'}s[>? Seq (\d+).*$][$1 : ]m; tr[\n.][]d" in >out