#!/usr/bin/perl -w
############################
#
# Perl input example
# Author: Bill Kraynek
# Created 11/11/2006
#
############################
print ("Enter your name ");
# read the name
$name = <STDIN>;
# remove trailing end of line
chomp($name);
print "$name\n";
# remove everthing after the first word
$name =~ s/[^a-zA-Z]+.*//;
print "$name\n";
# change all upper case to lower case
$name =~ tr/A-Z/a-z/;
print "$name\n";
# does $name start with a b
if( $name =~ /^b/ ) {
	print "Your name begins with B\n"
}