apple <= banana;
cat := dog;
elephant <= flag;
 and so on....

##</code><code>##

while(<>)
{
if(/case .* is/)	
		{ if(/then/){
			@words = split(/=/, $_);
				print "$_";
							
			$sth->execute($_[0], $_[1]) or die $DBI::errstr;
                       #even tried with @words[0] and @words[1].
	}}