Select Code to Download

Select or download this
```
#!/usr/bin/perl
# Shuffles cards
```
Select or download this
```
use strict;
use warnings;
```

sub b {
    push(@pack, shift @pack);
}

Select or download this

sub i {
    my ($a, $b, $c, $d, $e, $f, $g, $h) = @pack;
    @pack = ($e, $a, $f, $b, $g, $c, $h, $d);
...
    my ($a, $b, $c, $d, $e, $f, $g, $h) = @pack;
    @pack = ($a, $e, $b, $f, $c, $g, $d, $h);
}

Select or download this

sub parse {
  my ($string) = @_;
  print "\nParse $string: ";
  
  foreach $offset (0..(length($string)-1)) {
        $char = substr($string, $offset, 1);

Select or download this
```
for (string =~ /./g) { # ...
```
Select or download this
```
for (split //, $string) { # ...
```
Select or download this
```
for (/./g) { # ...
```
Select or download this
```
for (split //) { # ...
```

Select or download this

        if ($char =~ /b|i|o/) {
          print "bio ";
          &{$char};
        }

Select or download this

        elsif ($char =~ /\d/) {
            print "digit ";
#            foreach (1..$char) { &parse(substr($string, $offset+1)); 
+}