$1 = substr $var, 23, 15;
$2 = substr $var, 28, 10;