if ( $checked =~ /^[[:alpha:]]{3}\d{4,7}/ )
        {
          # it should print the accounts starting with letters here