#!/usr/bin/perl

use warnings;
use strict;

my $input_data  = "real.txt";
my $output_data = "output.txt";

open(FILE, $input_data) or die "Cannot open file $input_data because: $!";
my @text = <FILE>;
close(FILE);

foreach my $line (@text)
{

  if ( $line =~ /([A-Z]+) *- *([^-]+) *- *([^"]+)"([^"]+)".+?([0-9]+)$/sm )
  {
    print "CATEGORY $1\n\n";
    print "KEYWORDS $2\n\n";
    print "Summar text: $3\n\n";
    print "Reference: $4\n\n";
    print "Id: $5\n\n";
  }
  else
  {
    print "none";
  }
}