print "How much is A:";
my $a=<STDIN>;
chomp $a;
print " A=$a";

##</code><code>##

How much is A:25 
 A=25

##</code><code>##

How much is A:25 A=25