$ perl -E 'say "yes" if "&[1231251" =~ m/&\[[0-9]{7}/' yes