$acct_num = (split/ \- /, $acct_num)[-1];