use Term::ReadLine;
my $term = Term::ReadLine->new("prompt");
my $input = $term->readline("Enter search pattern: ")
	or die "no search pattern entered";
my @pats = split ' ', $input;