my ($id) = /(\d+)$/;
unless (defined $id) { ($id) = /^(\d+)/ }