#!/usr/bin/perl

use strict;
use warnings;

my ($string) = '';

while (1) {
  $string = <STDIN>;
  chomp($string);
  last if ($string eq 'exit');
}