print('Please type something: ');
$input = <STDIN>;
chomp($input);
print ("You typed: $input\n");

$len = length($input);
print ("Your input is $len characters long.\n");

$position = index($input, ' ');
if ($position < 0)  {
   print ("There are no blanks in your input.\n");
}
   else  {
   $position = $position + 1;
			print ("There is a blank at position $position.\n");
			$position = $posotion - 1;
}

if ($position < 0)   {
    $substr = $input;
}   else   {
    $substr = substr($input, 0, $position);
}
print ("The first word you typed was $substr.\n");

if ($input =~ m/ /)  {
   print ("There is a blank in your input.\n");
}  else  {
   print ("There are no blanks in your input.\n");
}

$newstring = $input;

$newstring =~ s/Dec\./December/;
print ("The original string is: $input\n");
print ("The substituted string is: $newstring\n\n");

($line = $input) =~ s/\015?\012/\015/;