if ($chapter=~/([\d+\.]+)\d+\.?/) {
    print "$1 is prior to $chapter";
}