Convert bash to simple perl

please delete!