my $regex = '
([.\w\s]*?)()?([.\s\w]*?)
';