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

my $input;
while ( (print "some prompt: "), $input=<STDIN>, $input !~ /^\s*q(uit)\s*/i)
{
   print "I'm looping until you type q or quit\n";
}
print "loop exited\n";