perl -ne 'if(m/Query\=\s+(\S+)/){print $1};' monks1085293.data sp|P30443|1A01_HUMAN #### perl -ne 'if(m/Query\=\s+([^\s]+)/){print $1};' monks1085293.data sp|P30443|1A01_HUMAN #### perl -ne 'if(m/(?:Query\=|\>)\s?([A-Za-z0-9]+)/){print qq|$1\t|};' monks1085293.data sp tr tr
## perl -ne 'if(m/Query\=\s+([^\s]+)/){print $1};' monks1085293.data sp|P30443|1A01_HUMAN ##
## perl -ne 'if(m/(?:Query\=|\>)\s?([A-Za-z0-9]+)/){print qq|$1\t|};' monks1085293.data sp tr tr