my ($exp) = 
    $line =~ m/ 
                    KP_          # Required 
                    (.*)            # Capture Desired Output
                    (?:\s)?      # Optional - Do not capture
		    (?:\()?         # Optional - Do not capture
     /xi;