S3.Blog

# в $line заносим 4ре байта 
my $line = 'lpo0';
# переводим байты в десятичную цифру
my $dec = hex(unpack('H*', $line));