Select Code to Download

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

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