open (MYFILE, $RD);
 while (<MYFILE>)
   {
     print $_
   }
close (MYFILE);

##</code><code>##

Name and Number:|47355|Multipurpose Room - General
Scheme:|SCHEME 5.1|Water
Room Title:|ELEC RM|Engineering|LEVEL 4

##</code><code>##

Name and Number:|47355 Multipurpose Room - General
Scheme:|SCHEME 5.1 Water

Room Title:|ELEC RM
Department:Engineering
Level:LEVEL 4