Select Code to Download

#!/usr/bin/perl -w
use strict;
...
pr('=');
pr('a=');
pr('a=b');

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