my($text) = "ccchcat";$text =~ m/([hc]?at)/;print $1 . "\n";