my (undef,@array) = split /pattern/, $file_content;