Perl LanguageReading a file's content into a variable