#!/usr/bin/perl

# this script chops a long line into lines of length 10.

print "enter a string > ";
$string = <STDIN>;
chomp( $string );

while( length( $string ) >= 10 ) {
    push( @strings, substr( $string, 0, 10 ) );
    $string = substr( $string, 10 );
}
if( length( $string ) > 0 ) {
    push( @strings, $string );
}

for( $i = 0 ; $i <= $#strings ; $i++ ) {
    print "$strings[$i]\n";
}