#!/usr/bin/perl
use warnings;
use strict;

open FILE, "dict";

my $i = 1;
while (my $line = <FILE>) {
    if ($i == 3) {
        chomp($line);
        $line =~ /BAD (.*)/;
#        print $line."\n";
        print "NAME ".$1."\n";
    }
    if ($i == 4) {
        chomp($line);
        $line =~ /GOOD (.*)/;
#        print $line."\n";
        print "CMD ".$1."\n\n";
    }
    if ($i == 5) {
        $i = 0;
    }
    $i = $i + 1;
}