Backticks interpolate, so `... $2 ...` will likely not do what you think it does. If you allowed Perl to help you, it would tell you about this problem. This is why a common suggestion is to add use warnings; to the top of your scripts.

Even better would be to eliminate the use of ls and awk in favour of readdir and stat.