$s = $p1.$p2.$p3;
$s++;
$s =~ /(.*)(.{1})(.{1})/;
($p1,$p2,$p3) = ($1,$2,$3);