俺も専ブラから書くと行頭の半角スペースが消えているように見える
(datには半角SPあるけど)。

↓Webブラウザ(firefox)から書き込んでみるテスト

sub f {
   $n++ while ($m = $p*$n % $x) > 1;
   $m ? $n : 'false'
}