#!perl -p
s/ .* (.*)//;vec($_,$&,8)=vec($_,$1,8)=95;s/_//g