Convert very small file Bash to ' Perl '

I have this very small shell script that needs to be converted into Perl, file has about 40 lines of code and not includes very logical things. Probably it will be taking a perl guy to do this job about 15 min I attached the bash shell script here so you can see what's needed to be converted. Thank you