Оператор do {} while/until.

do { op_1; op_2; op_3; } while выражение;

Пример:

$stops = 0; do { $stops++; print "Next stop? "; chomp($location = <STDIN&gt); } until $stops &gt 5 $location eq 'home';