Select Code to Download

sub trigger{print "Triggered ".shift."(@_)\n"} #must go BEFORE the eva
+l is seen

...
@arr = qw(Doky);
$arr[0] =~ tr/y/i/;
s/D/L/ for @arr;