#!/usr/bin/perl 
##
## Programmer:    Craig Stuart Sapp <craig@ccrma.stanford.edu>
## Creation Date: Fri Jul 23 19:45:02 PDT 1999
## Last Modified: Fri Jul 23 19:45:06 PDT 1999
## Filename:      /home/httpd/html/perl/examples/firstchar
## Syntax:        Perl 5
##
## Description:   how to get the first character in a string.
##

$var = "hello";
$var =~ /^./;
$result = $&;

print "string is: ", $var, "\n";
print "first character is: ";
print $result, "\n";