my @char= split //, $string;
my $first_char= shift @char;
my $rest= join "", @char;
my @char= split //, $string;
my $last_char= pop @char;
my $rest= join "", @char;