#!/usr/bin/perl
use strict;
use warnings;
for (<DATA>){
    if (m/^\s*Category (.*)$/){
        print $1, $/;
    }
}