$_=<>;$s=<>; $s=~s/(^.)(.*)(.$)/$2/g; print $s;