in reply to Check Section closing

if ($aid_new1 =~ /^\d{2}$/) The \d{2} means match 2 digits

In Section Seekers of Perl Wisdom