#! c:/perl/bin/perl.exe
use strict;

open (LST,"c:/test/showtech215.txt")||die "$^E ; $!\n";
chomp (my $data = <LST>);
print "$data"
#my @array = split /\*+/,$data;