in reply to Removing characters

Probaly not the best way, but this will work.
if ($value =~ m/[.|\n]+/) { do_something; }
It means (.) any char (\n) new line (+) require at least one

Your Humble Servant,
-Chuck