my( @numbers ) = $str -~  m{ (\d+) }gx;