use strict;
use warnings;
use Data::Dump qw/dd/;
use Data::Dumper;

while (<DATA>) {
    chomp;
    print "<$_>\n" if /\.$/;
    dd $_;
    warn Dumper $_;
}


__DATA__
Inventories

Trade receivables

Assets

This item includes impairment losses.