Select Code to Download

sub splitit {
    my ($left, @words, $right, $doit) = split /\s+/, shift;
...
If you tell me, I'll forget.
If you show me, I'll remember.
If you involve me, I'm calling the cops.

#!/usr/bin/env perl
#
...
    };
    return $doit->( '', '', @words);
}

sub splitit {
    my @words = split /(\s+)/, shift;
...
    }
    return $left, $right;
}