$string = 'asdf QQ';
@array = split /\s+|(Q)/, $string;