#!/usr/bin/perl 
$file = 'data.txt' ;                   # Name the file 
open(INFO, "<$file") ;           # Open the file 
close(INFO) ;                        # Close the file 
 
$str = <INFO>; 
@snippet @snippet = split (/ /, $str);  # split into an array of size 200 characters each

#!/usr/bin/perl 
# Testing counting the number of characters 
my $length = "10"; 
my $filename = "test.txt"; 
open FILE, $filename or die "cant open $filename!\n"; 
read FILE, $string, $length; 
close FILE; 
print "the string we are looking for is $string\n";

{ 
  open INFO, $file or die $!; 
 
  local $/ = \200; 
 
  while (<INFO>) { 
    # do something with your 200 chars (which are in $_) 
  } 
  close INFO; 
}

$MAX_WIDTH = 200;  #Set the max width we will use 
  
print "Please enter The File to split into groups of 200 characters:\n"; 
$filename = <STDIN>; 
open FILE, $filename or die "cant open $filename!\n"; 
 
@lines = <FILE>;  
  
foreach (@lines) {  
    chomp;  
    $_=~s/\s+/ /g; # remove white space to one single "space"  
    $str .= $_;  
}  
  
$length = length($str);  
while ($n < $length) {  
    print substr($str,$n,$MAX_WIDTH)."\n";  
    $n = $n + $MAX_WIDTH;  
}  
print substr($str,$n)."\n";

while ((length($word) + length($substr) < 200) { 
   $substr .= $word; 
   # probably some code to reset $word; 
} 
print $substr;

my $max_len = 200; 
 
my $string = ''; 
while (<FILE>) { 
  foreach my $word (split) { 
    if (length($string) + length($word) + 1 > $max_len) { 
      # stop there 
      last; 
    } else { 
      $string .= " $word"; 
    } 
  } 
}