my ($x, $y) = $sample =~ /(\d+)(.*)/;
$x = '?' unless $x;
$y = '?' unless $y;