foreach my $find (keys %chunks) {
	$data =~ s/$find/$chunks{$find}/g;
}