Perl: Right VB Function?

[dnrodrigo]

$dim = substr($dim, length($dim)-1, 1);