#!/usr/bin/perl                        
use strict;
use warnings;
print "Simple Letter Counting Program\n";
print "Written by StmyD\n";
print "Processing...\n";
print "Please type word for counting: ";
my $name = "<STDIN>";
my $size = length(<STDIN>);
my $final = $size - 1;
my $super = 100 - $final; 
print "Your word contains $final letters and is $super letters away from being 100 letters!\n";
print "Dare to try me again? Enter here: ";
my $name2 = "<STDIN>";
my $size2 = length(<STDIN>);
my $final2 = $size2 - 1;							
my $super2 = 100 - $final2; 
print "Your word contains $final2 letters and is $super2 letters away from being 100 letters!\n";
print "One more time... next step gets interesting? Enter here: ";
my $name3 = "<STDIN>";
my $size3 = length(<STDIN>);
my $final3 = $size3 - 1;
my $super3 = 100 - $final3; 
print "Your word contains $final3 letters and is $super3 letters away from being 100 letters!\n";

print "CLICK ENTER to continue to next step, or type 420!\n";
my $text = <STDIN>;
print "Ok, lets try something new. Enter two numbers when prompted and i will tell you\n a bit about them.\n";
print "Number 1: \n";
my $number1 = <STDIN>;
print "Number 2: \n";
my $number2 = <STDIN>;
my $abs1 = abs($number1 - $number2);
my $awesome = 100 - $abs1;
print "These numbers are $abs1 integers apart and their difference is $awesome\n integers away from 100 ";
print "All done.\n";

print "CLICK ENTER to exit!\n";
my $text = <STDIN>;