print $1 if $string =~ /(\w+)[- ]controlled/;