use 5.010; $_ = 'a123b45c6'; while (m/(\d+)/g) { say $1; }