print "$expa\n\t$_\n\n\n" for grep /$expb/, split /$expa/, $text;