$s = '01234567890';;

print substr $s, -10, 6;;
123456

$s = '15556667777';;

print substr $s, -10, 6;;
555666