$s = substr $s, 1, length($s) - 2;