Select Code to Download

$conto++ if $value =~/(($key\/$key\/S)\s{0,2}(\.\*)\s{0,2}(con\/con\/E
+)\s{0,2}(\.\*)\s{0,2}($value\/$value\/S))/is){

$conto++ if $text =~/(($key\/$key\/S)\s{0,2}(\.\*)\s{0,2}(con\/con\/E)
+\s{0,2}(\.\*)\s{0,2}($value\/$value\/S))/is){