#! /usr/local/bin/perl
use warnings ;
use strict ;

#LP3 ex3-1
#Reverse a string

my $q = 0 ;

until ($q) {
    print "Enter some stuff.  Hit 'q' to quit:  " ;
    my @input = <STDIN> ;

    if (@input eq 'q') {
        $q = 1 ;
    } else {

    my @rev = reverse @input ;
    print @rev ;
   }
}