Whats with the attitude!
How is asking questions going to teach you perl? its only going give you specific anzwers to the questions you ask. It is in now way going to teach you the funamentals of perl.
There are many good sites on the net where you can get some perl tutorials. Thats how I learnt it, and probably many other people on this board too.
Anyways, you said u dont know where to start?
Well start doing the hack and post a message when u find your first problem.
Happy Perling

$value=uc ($input{$lookup});
$value=~ s/[ ]*$//g;
$value=~ s/^[ ]*//g;
next unless $value;