#!/usr/bin/perl
# ア:A|1*
# イ:23456)(
# ウ:|A
"123456"=~/([0-9]+A|1*)/;
"123456"=~/(23456)([0-9]+A|1*)([0-9]*)/;
print "123456"=~/123(|A45
)4/ ?true
:false
,"\n";
print "123456"=~/123(|A45
)6/ ?true
:false
,"\n";
IyEvdXNyL2Jpbi9wZXJsCgojIOOCou+8mkF8MSoKIyDjgqTvvJoyMzQ1NikoCiMg44Km77yafEEKCiIxMjM0NTYiPX4vKFswLTldK0F8MSopLzsKcHJpbnQgIiQxXG4iOwoKIjEyMzQ1NiI9fi8oMjM0NTYpKFswLTldK0F8MSopKFswLTldKikvOwpwcmludCAiJDFcbiI7CgpwcmludCAiMTIzNDU2Ij1+LzEyMyh8QTQ1KTQvID90cnVlOmZhbHNlLCJcbiI7CgpwcmludCAiMTIzNDU2Ij1+LzEyMyh8QTQ1KTYvID90cnVlOmZhbHNlLCJcbiI7Cg==