#!/usr/bin/perl
# Shuffles cards

##</code><code>##

use strict;
use warnings;


##</code><code>##

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

##</code><code>##

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

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

##</code><code>##

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

##</code><code>##

for (string =~ /./g) { # ... 


##</code><code>##

for (split //, $string) { # ...     


##</code><code>##

for (/./g) { # ... 


##</code><code>##

for (split //) { # ...     


##</code><code>##

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

##</code><code>##

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