;;;;;sip headers
[sipheader]
exten=>_x.,1,Noop(reading from header  ${PJSIP_HEADER(read,from)})
same=>n,Set(from=${PJSIP_HEADER(read,from)})
same=>n,Set(fromip=${CUT(from,>,1)})
same=>n,Set(ip=${SHELL(php /root/cut.php "${fromip}")})
same=>n,Set(pseudodid=${CUT(from,@,1)})
same=>n,Noop(${ip})


;;; php cut.php script
<?php

  $ip= stristr($argv[1], '@'); //
   $arr= explode("@",$ip);
    echo $arr[1];
exit();
?>