It is one of those annoying times I feel forced to use perl