$beatles = "PaulJohnGeorgeJohnRingo";
@yoko = split(/John/, $beatles);