# Maybe make the values here a sub reference defining what to call when you see the line in question.
my %wantedInfoHash = ('Controller Status' => undef, 
  'Status of logical device' => undef, 
  ...);
while ($line = <>)
{
 if ($line =~ /([^:]):/)
 {  # grabbed everything up to the first colon into $1
  if (exists $wantedInfoHash{$1})
  {
    # Found something we wanted, so do something with it.
  }
 }
}