#!usr/bin/perl -w
use strict;

while ( (print "Enter a pair of numbers (space between) or quit: "), 
        (my $line =<STDIN>) !~ /^\s*q(uit)?\s*$/i  
      )
{   
    print $line;
}