Select Code to Download

Select or download this

$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -MCarp::Always -E
+'

Select or download this
```
chomp(my $ok = <>),
```

Select or download this

$ perle 'print "Query (Y/N): "; chomp(my $in = <>), say $in;'
Global symbol "$in" requires explicit package name (did you forget to 
+declare "my $in"?) at -e line 1.
Execution of -e aborted due to compilation errors.
 at -e line 1.

Select or download this

$ perl -MO=Deparse -e 'chomp(my $in = <>), say $in;'
chomp(my $in = readline ARGV), $in->say;
-e syntax OK

Select or download this

print "do you want to remove <alt> tags Y/N \n";

Select or download this
```
my $ok = <>
```

Select or download this

# This dies:
$ perle 'print "Query (Y/N): "; chomp(my $in = <>); say $in;' some_arg
...
$ perle 'print "Query (Y/N): "; chomp(my $in = <STDIN>); say $in;' som
+e_arg
Query (Y/N): y
y

Select or download this

print "do you want to remove <alt> tags Y/N \n";
chomp(my $ok = <>),
my $yes = 'y';
my $no = 'n';

Select or download this
```
$inp =
```
Select or download this
```
lc($ok)
```

Select or download this

if ($inp eq $yes) {...} elsif ($inp eq $no) {...}

Select or download this

if (fc($ok) eq fc($yes)) {
    print "Removing ...\n";
...
else {
    print "No removal.\n";
}

Select or download this
```
sub RemoveAltTag($)
```
Select or download this
```
my $doc = shift;
```

Select or download this

for(my $i = 0;$i < $nodes->getLength(); $i++)

Select or download this
```
for my $i (0 .. $end) { ... }
```