#!/bin/perl
##################################################
# Demonstrate Basic Scalar Operators
##################################################

print "Enter a scalar value: ";
$input0 = <STDIN>;         # Get one line of input
chomp($input0);            # Remove the newline/CR 

print "Enter an integer value: ";
$input1 = <STDIN>;        # Get one line of input
chomp($input1);           # Remove the newline/CR 

print "Scalar ARITHMETIC operators on $input\n";
print "$input0 + $input1 is: ", $input0 + $input1, "\n";
print "$input0 - $input1 is: ", $input0 - $input1, "\n";
print "$input0 * $input1 is: ", $input0 * $input1, "\n";
print "$input0 / $input1 is: ", $input0 / $input1, "\n";
print "$input0 % $input1 is: ", $input0 % $input1, "\n";
print "$input0 ** $input1 is: ", $input0 ** $input1, "\n";

print "\nScalar STRING operators on $input\n";

print "$input0 . $input1 is: ", $input0 . $input1, "\n";
print "$input0 x $input1 is: ", $input0 x $input1, "\n";
print "$substr(\$input0,$input1,1) is: ", substr($input0,1,1), "\n";

exit;                    # End program