Urgent - Getting the left most 3 characters from a string...

[Chris]

I am getting the HTTP result codes and trying to parse just the left 
most 3 characters:

  500 Can't connect to www.1k2k3k4j.com:80 (Bad hostname 'www.1k2k3k4j.com')
I only want 500....

In VB I could use:

if left($result,3) = "500" Then
    Do whatever
Else
     Blah Blah Blah
End If

In Perl I want to do:

if (left($result), 3) = 500 {
    Do whatever;
} else {
     Blah Blah Blah;
}

How can I do the left in Perl????

TIA!


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]