#!/usr/bin/perl -w
use strict;

my $a = "23B";
$a +=0;
print $a;