Select Code to Download

Select or download this

$ ./7.cw1.pl
Useless use of string in void context at template_stuff/utils1.pm line
+ 164.
Subroutine html7::getcwd redefined at /usr/share/perl/5.26/Exporter.pm
+ line 66.
...
        };

$

Select or download this
```
$ cat html7.pm
package html7;
...
1;
$
```

Select or download this

  
$ cat utils1.pm
package utils1;
...
1;

$

Select or download this

$ cat nibley1.pm
package nibley1;
require Exporter;
...
}
1;

Select or download this

  while (<$hh>) {
    $_ =~ s/($check)/$hash{$1}/gi;
    $_ =~ s/[^[:ascii:]]+/ /g;
...
    say "default is $_";
    $text = $text . $_;
  }

Select or download this

$ touch 1.mp.txt
$ gedit 1.mp.txt &
[1] 11120
...
$ cat 1.mp.txt
I wave my private parts at your aunties, you cheesy lot of second hand
+ electric donkey-bottom biters.
$