#!/usr/bin/perl -w
use strict;
my $use_file = "no"; # yes or no
my $file = "convo.txt"; # the file to open if $use_file = 1
my $i=0;
my $j=0;
my $n = 0;
my $n2=0;
my @i;

get();
my $name2;
sub parse{
    my @i = @_;
    if(@i){
        my $name = $i[0];
        $name =~ s/^(.*?):\s+.*/$1/;
        my @words;
        foreach(@i){
            s/^(.*?):\s+(.*)/$1/;
            push @words,$2;
            if($name eq $_){
                $n++;
            }else{        
                $name2 = $_;
                $n2++;
            }
        }
        foreach(@words){
            $i++ foreach split/ /;
            $j++ foreach split//;
        }
        print "$i words total, $j total characters\n",
            "$name has $n IMs sent while $name2 has $n2 IMs sent. Ther
+e were ", $n + $n2," IMs total";
    }else{
        print "YOU NEED TO PUT STUFF IN $file OR PUT IT BETWEEN THE PI
+PES |BLAH|";
    }
}                        
sub get{
    if($use_file eq "yes"){
        if(-e $file){
            open(FH,$file) || die "$!";
                @i = <FH>;
            close FH;
        }else{
            open(FH,">$file") && die "The conversation file has been c
+reated.\n
             Paste your conversation in $file and run the program agai
+n.";
            close (FH);
        }
    }else{
        @i=split/\n/,qq|hey: yo\nyo: hey|; #paste the convo between th
+e pipes |convo here| make sure that it isn't
        # like |
        # convo here
        # |
    }
    
    parse(@i);         
}
[download]