$_="Hello World!";
$_ =~ /^(.)/;
print "The first character is:  $1\n";