$s =~ s/(\[\d{1,2}\])/$a$1/g; #output Hello $a[2]$a[1]

# eval '$s="$s";'; ## Here ?