perl -ne 'if(m/Query\=\s+([^\s]+)/){print $1};' monks1085293.data
sp|P30443|1A01_HUMAN