perl IO-String