#!/usr/bin/perl use warnings; print "What is your word that has six characters?\n"; $word = <>; chomp($word); print( substr($word, 0, -1) . "\n" ); print( substr($word, 0, -2) . "\n" ); print( substr($word, 0, -3) . "\n" ); print( substr($word, 0, -4) . "\n" ); print( substr($word, 0, -5) . "\n" ); print( substr($word, 0, -6) . "\n" );
Comments
0 B
|👍
/👎
0 B
|👍
/👎