#! c:/perl/bin/perl.exe
use strict;
undef $/;
open (LST,"c:/test/show.txt")||die "$^E ; $!\n";
my $data = <LST>;
#print "$data";
my @array = split(/\*+/, $data);
print "$_\n" for (@array);