@blah = by_string($file);
$i = 0;
foreach(@blah){
   $i ++;
}
print $i; # Prints 1... not what I am looking for