use strict;
use warnings;
while(<DATA>){
    chomp;
    my( $type, @data ) = split /[|]/;
    if( $type eq 'Room Title:' ) {
        print "\n$type $data[0]\n";
        print "Department: $data[1]\n";
        print "Level: $data[2]\n";
    } else {
        print "$type @data\n";
    }
}
__DATA__
Name and Number:|47355|Multipurpose Room - General
Scheme:|SCHEME 5.1|Water
Room Title:|ELEC RM|Engineering|LEVEL 4