my $split_reg = qr{\\{2}};# 2 repetitions
# or 
my $split_reg = qr{\\{1}};# 1 repetition

@file = split /$split_reg/, $file;
[download]