Select Code to Download

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

print $a;            # prints "123\n456"
print $b;            # prints "123\n45\n"  ## OOPS!!!

.