how can I delete last letter

[antoinep]

I have for example
$a="Antoinex";

Now I want to delete the x?
How??

[Weedpacket]

See [man]substr[/man], example 3, line 1.