ok not something i though i would have to do
perl is fun sometimes