open (FILE,"abc.txt") or die $!;
   while (<FILE>){
          ($_ =~ /((^Question = .*)|(^\>.*)|(Height = .*)|(Score = \d))/i);
       print  $1   "\n";
       print  $2  "\n";
       print  $3  "\n";
       print  $4   "\n";
       }

close (FILE) ;