You should probably use:
if ($cat_r->{Description}=~/^SUB[01]$/) {
Just incase someone happens to have a description with SUB0 or SUB1 in for whatever reason, however unlikely it may be.
if ($cat_r->{Description}=~/^SUB[01]$/) {
Just incase someone happens to have a description with SUB0 or SUB1 in for whatever reason, however unlikely it may be.