>>319
=> 演算子を調べるべきだろう。

'縮めろ' while ... なり
1 while ... なり
while ($abs_path =~ ...) {} なりご自由に。