my @foo = split //;
    shift @foo;
    $_ = join '', @foo;

or

    my $foo = reverse($_);
    chop($foo);
    $_ = reverse($foo);

or
    $_ = unpack "xA*", $_;