#!/usr/local/bin/perl -l
 
foreach ('b', 'bb', 'B', 'foo', 'bar', 'BB') {
    print m/^b{2}$/i ? "\x42\x42" : bb(); 
}
sub bb() {
    while(1) { return chr(rand(100)) . chr(rand(100)) unless (m/^b{2}$/i); }
}