>perl -e"$_='a'; print qr/$_{3}/"
(?-xism:a{3})