Select Code to Download

  use strict; use warnings ;

...
  print "\$k = HOMBURG  -> \$k=$k\n" ;
  print "\$bar{homburg}=$bar{ homburg }, \$bar{HOMBURG}=$bar{HOMBURG},
+ ",
               "\$bar{\$k}=$bar{$k}, \$bar{+HOMBURG}=$bar{+HOMBURG}\n"
+ ;

  my $w = '0001' ; my $x = 'zlqq' ; my $y = '-zlxq' ; my $z = '+zlxq' 
+;

  print " \$w=$w,  \$x=$x,   \$y=$y,  \$z=$z\n" ;
  print "+\$w=", +$w, ", +\$x=", +$x, ",  +\$y=", +$y, ", +\$z=", +$z,
+"\n" ;
  print "-\$w=", -$w, ",   -\$x=", -$x, ", -\$y=", -$y, ", -\$z=", -$z
+, "\n" ;

  use strict; use warnings ;

  use constant HOMBURG => 'HA' ;

  print "-HOMBURG=", -HOMBURG, ", -foo=", -foo, "\n" ;

  my $x = '0x1234' ; my $y = 0x1234 ;

...
  sub show {
    return '"'. join('', map { sprintf('\\x%02X', ord($_)) } split(//,
+ $_[0])) .'"' ;
  } ;

  use strict; use warnings ;

...

  __DATA__
  0x1234

  use strict; use warnings ;

...
    my $zero = $z == 0 ? '=='   : '!=' ;
    printf "%7s is %5s and %2s 0\n", "'$z'", $bool, $zero ;
  } ;