($last_41) = $buffer =~ /(.{41})$/;

##</code><code>##

$last_41 = substr $buffer, -41;