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

update

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

rdfield