#!/usr/bin/perl -w

open(TEXT, "text.txt")
			 || die("Can't find file\n");
$n = 0;

while ( defined ($vary = <TEXT>) ) {

	++$n;
 
	chomp ( $vary);

	$vary =~ tr/a-z/A-Z/;

	print  "line$n :\"$vary\"  printed fine! \n ";
}