Tweaked the perly shift