in reply to Regarding pattern Matching

Looks like lc and hash should be sufficient. 

%hash=( audi => AUDI, ...);
print $hash{ lc($input) };

[download]

Cheers Rolf
(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!

In Section Seekers of Perl Wisdom