A few things off the top of my head...

$efile isn't an array, so getting it's length in the for-loop wouldn't work. (nor should $efile[$i])

$var and $end in the regex - where do those come from? They're not declared anywhere...

Big tip here - changed my life forever when I first heard it: start every script with these two lines:

use strict;
use warnings;
[download]

Your perl skills will improve immensely, as will your code logic, and your teeth and hair will gain a healthy sheen.