#!/usr/bin/perl 
################################################################ 
# 
# Homework Challenge Week 2 
# February 11th 2007
# 
################################################################ 
# 
system "cls";

print "This my Introduction to Perl Homework for week 2\n"; 
print "\nUnit 2\.1\: A Gentle Intoduction to Scalar Data\n\n"; 

#variables
$name1 = "Sir"; 
$name2 = "Madam"; 
$greeting = "Welcome to the bike store."; 
$period = "."; 
$comma = ","; 
$question = "?"; 
$types = "7"; # variable using a number as a script 
$brand = "20"; 
$colors = 100; # variable as a number 
$bike1 = "commuter";
$bike2 = "mountain"; 
$bike3 = "hybrid"; 
$bike4 = "road"; 
$bike5 = "time trial"; 
$bike6 = "tandem"; 
$bike7 = "unicycle"; 
$brand_statement = "We have over $brand brands of bikes in stock$period\n"; 
$question1 = "Would you like to take a look at the $types different types of bikes we sell?"; 
$common_bike = "$bike1, $bike2, $bike3"; # concatenation 
$expensive_bike = "$bike4, $bike5";
$unusual_bike = "$bike6, $bike7"; 
$variety_bike = "$common_bike, $expensive_bike, $unusual_bike"; 

print "\n\n"; 
print "Hello $name1$comma $greeting\n\n"; 
print "$brand_statement\n"; 

print "$question1\n\n"; 
print "We have a variety of bikes consisting of $variety_bike, that are available in over $colors exciting colors!\n\n"; 
print "The $common_bike are great for getting around town or riding on trails.\n\n"; 
print "The $expensive_bike, are best suited for racing.\n\n"; 
print "The $unusual_bike, require a bit more practice to learn how to ride them.\n\n";