#!/usr/bin/perl -w
use strict;
sub pr {
    print "'$_[0]' (no limit) => [".join(",",map { defined $_ ? "'$_'" : 'undef' } split /=/,$_[0])."]\n" ;
    print "'$_[0]' (limit 1) => [".join(",",map { defined $_ ? "'$_'" : 'undef' } split /=/,$_[0],1)."]\n" ;
    print "'$_[0]' (limit 2) => [".join(",",map { defined $_ ? "'$_'" : 'undef' } split /=/,$_[0],2)."]\n" ;
}

pr('');
pr('a');
pr('=');
pr('a=');
pr('a=b');

##</code><code>##

'' (no limit) => []
'' (limit 1) => []
'' (limit 2) => []
'a' (no limit) => ['a']
'a' (limit 1) => ['a']
'a' (limit 2) => ['a']
'=' (no limit) => []
'=' (limit 1) => ['=']
'=' (limit 2) => ['','']
'a=' (no limit) => ['a']
'a=' (limit 1) => ['a=']
'a=' (limit 2) => ['a','']
'a=b' (no limit) => ['a','b']
'a=b' (limit 1) => ['a=b']
'a=b' (limit 2) => ['a','b']