my $newstring = substr($string,1,-1);