vedr. antal chars i string samt substring funktion.

hej jeg skal rette et script og perl er ikke lige min stærke side.

jeg skal test på om en string er mere en 32 chars stor og hvis den er det skal den strippes ned til det.

F.eks

if(strsize($mystring)>=32) {
mystring=substr($mystring,0,32)
}

Samtidig skal jeg i en anden variabel tage de 3 sidste karaktere,
Det må ve lvære noget af det samme
$mysize=strsize($nystring);
$nystring=substr($nystring,0, $mysize -3);

Kan i hjælpe mig her med korrekt funktionsnavne og syntax.