#!/usr/bin/perl -w
use strict;

my $line = <DATA>;
chomp($line);
print "$line\n";
my $vc=0;				#0 for const and 1 for var
my $maxline = length($line);
$_ = $line;

if (m/.*\r$/){      #carriage return
	$maxline = $maxline - 1;
}

if (m/.*\032$/){    #ctrl-Z
	$maxline = $maxline - 1;
}

my $originalmaxline = $maxline;

while(<DATA>) {
	chomp;
	my $newline = $_;
	print "$newline\n";
	my $newmaxline = length($newline);
	
	if (m/.*\r$/) { #carriage return
		$maxline = $maxline - 1;
	}
	if (m/.*\032$/) {#ctrl-Z
		$maxline = $maxline - 1;
	}
	if ($newmaxline != $originalmaxline) {
		$vc = 1;
	}	
	if ($newmaxline > $maxline) {
		$maxline = $newmaxline;
	}
	
}
#-----------------------------------------------	
# using the char X to see it print a space based on maxline count
# in this case it's 29
#-----------------------------------------------
for (my $i=0;$i<$maxline;$i++) {
	my $padding = "X";
	print $padding;
}
	print "\n";

__DATA__
This is my file
it doesn't have
a blank line at the end
of it based on
the maxline count of the file
that it read.