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, $+); } }