Fjernelse af sidste tegn i variable

["Lars H." <sslug@sslug>]

Hvordan fjernes sidste tern i en variabel.

Dette virker OK for mig, med det må da kunne laves "bedre".

FØR: $efternavn = "123455M"
EFTER: $efternavn = "123455"


          $efternavn =~ s/(\w+)/ scalar (reverse($efternavn))/eg;
          $efternavn =~ s/^C//;