Select Code to Download

#!perl
$ENV{CLASSPATH}="/usr/work/ticket/ETicketClient.jar:.";
...
      grep(/CLASSPATH/, qx[/usr/bin/env]), "\n";
print "With shell metachars we get:\n", 
      grep(/CLASSPATH/, qx[/bin/false || /usr/bin/env]), "\n";

#!/usr/bin/perl -w 
my $cp = "/usr/work/ticket/ETicketClient.jar:."; 
...
$test="This is perl ticket"; 
my $result =qx/java -cp \Q$cp\E ETicket.ETicketClient -i TICKET -n  p_
+name -t "\Q$test\E"/; 
print $result;

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/