@i=split //,ord' ';
@h=map{ord} split 
//,\%h;$h[0]+=$i[1];
$h[2]-=$i[0];@h=map
{chr^' '} @h;print 
@h[0..3]