my $variable = <STDIN>;    
# auch wenn der benutzer nur return drückt ist trotzdem $variable = "\n"

# das newline-zeichen kann man aber mit chomp entfernen:
chomp $variable;

# der vergleichsoperator für strings heißt 'eq':
while (not($variable eq "")){

# oder - die negativierte form namens 'ne' -
while ($variable ne ""){