while

#!/usr/bin/env perl
#
# Programa de bucle 2 :D
#

a = "valor"

while a == "valor":
     a = input("Valor de a : ")

# Cualquier valor que introduzcas,que no sea "valor" romperá el bucle al ya no cumplirse
# la condición,ya que estaríamos cambiando el valor de la variable a