print "Enter a string: ";
while(<>)
{
    $line = $_;
 last if ($_ =~ /^\s*[Q|q]{1,1}[U|u]{1,1}[I|i]{1,1}[T|t{1,1}\s*$/);
    next if ($_ =~ /^$/ or $_ =~ /^\s+/$);
    if($line =~ /\s*([a-zA-Z]+\s*)+\s*(-?\d\d?)\s*/)
    {
    print $_;
    }
}