# File:	controlWhile0.pl
# Title: 	Remove last character till string is Null
# Author:	Mihaela Malita 
#		pascal
#		pasca
#		pasc
#		pas
#		pa
#		p
#		Bye
$s = 'pascal';		# S is a string
while ($s) {	    # while string is not empty
    print $s,"\n";  
    chop($s);		# remove last letter
}
print  "\nBye";
exit;