$str = "phone";
$str =~ /(..one|[gn]one)/;
print "string match = $1\n ";
print "expression match = ????\n ";