my ($var) = $s =~ m{ (\d+) \z }xms;