perl -ne 'BEGIN{$/="\n>"}if(/^\s*(\S+)/){open(F,">$1.a3m")||warn"$1.a3m write failed:$!\n";chomp;print F ">", $_}'