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