#!/usr/bin/perl
use strict;
use warnings;

my $text = "0x25";
print "$text\n";
my $number = hex ($text);
print "$number\n";