> perl -e '$_="haba\N{U+263A}ugo"; $n= m/(\N{U+263A})/; print $n;'
1