[jmax@gir] ~ $ perl testes.pl 
INPUT:
asdf
RESULT:
asdf
INPUT:
#asdf
RESULT:

INPUT:
"lol#asdf"
RESULT:
"lol

[jmax@gir] ~ $ perl resultes.pl
INPUT:
asdf
DESIRED RESULT:
asdf
INPUT:
#asdf
DESIRED RESULT: 

INPUT:
"lol#asdf"
DESIRED RESULT:
"lol#asdf"