#!/usr/local/bin/perl
use 5.012;
say ( "dankogai" =~ /(dan|dankogai)/ );
say ( "dankogai" =~ /(dankogai|dan)/ );