in reply to special characters storage in perl

What is the function supposed to do? Why doesn't the function take parameters? Use strict warnings and diagnostics or die