my $number = undef;
if( $string =~ m/(.)(.)/ ) {
    $number = hex( unpack("H*", "$2$1") );
}