nopaste.txt

use warnings;
use strict;

my $comp3 = 0x01234D;
my $dec = $comp3 >> 4;
$dec = sprintf "%x", $dec;
if($comp3 & 0xD) {
  $dec *= -1;
} elsif(!$comp3 & 0xC) {
  print "error!"
}
print $dec, "\n";