/^(\d+\.\d+)\|.*/;
$gref = $1;


         /^(\d)$/;
$type = $1;