The assignment of $_ to $j seems redundant to me. Just write it like this:

foreach (@d)
{
    $template=/^.*\.[^.]+/ if(/$count/);
}
[download]

$_ is already filled with whatever is in @d...