Select Code to Download

foo% ( similar in perl ^foo+ ) 
%foo% ( similar in perl foo +)
%f%o%  ( no idea on perl)

$find1='%';
if ($field2_b ne "") { s/[^$find1]?^/\^/,s/[$find1]?$/+/ for $field2_b
+ };
if ($field1 =~ /$field2_b/i) { print "fields have pattern matching \n"
+;