while (1) {
    print "Word: ";
    chomp(my $text = <STDIN>);
    last if ($text eq 'q');
    translate($text);
}