Besserer "Abfrage"-Code

[Pot]

Moin,

Ein paar Leute und ich schreiben gerade an einem Bash-Script. Das ganze will ich jetzt auf perlisch umschreiben. Manchmal kommen da so Fragen mit ja/nein Antworten und einer Standartantwort (bsp: nein):

[code=bash]
while [ true ]; do
    echo -n "Frage [j/N] ";
    read antwort

case $antwort in
        n|N|"")
            do_something
            break;;
        j|J)
            do_something
            break;;
        *)
            echo "Ungültige Angabe!"
            ;;
    esac
done
[/code]

Mir ist klar, dass eine Endlosschleife nicht gescheit ist, die nachher mit break abgebrochen wird. Auch wegen diesem Grund frage ich hier nach.

Nun: wie schreibe ich das korrekt in Perl? case gibts ja net also kommt nur eine if in Frage. Die Endlosschleife will ich auch rausnehmen.
Gibts da irgend eine optimale Lösung dafür?

Mit freundlichen Gruessen,
Pot