my $a = "x"; while ($a ne "y") { ... chop $a; }