$|++;

my $what;
do
{
     print "PartNumber? ";
     chomp($what = <STDIN>);
} while (!search($what));