$code_key =~ s/[.?!:;"'()]//g;

##</code><code>##

@array_codes = <DATA> =~ m/\w+/g;