##
while () {
if( m#( .* )#sg ){
push(@search1, $+);
}
if( m#(
)#mg ){
push(@search2, $+);
}
if( m#( \s*\n*\s* \s*\n*\s* \s*\n*\s* \s*\n*\s* \s*\n*\s* \s*\n*\s*\n*\s* )#mg ){
push(@search3, $+);
}
if( m#( .* .* .* .* .* .* )#sg ){
push(@search4, $+);
}
}