s/^.//;

##</code><code>##

use Fcntl qw( :seek );

$_ = "12345";

{
    open my $fh, "<", \$_;
    seek $fh, 1, SEEK_SET;
    local $/;
    $_ = <$fh>;
}