perl Test-LongString