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