Split databases from a bulk db sql file created by PhpMyAdmin. (the sql file name need to be "localhost.sql")

pma.pl

use Tie::File;
use IO::Handle;

tie @SQL_FILE, 'Tie::File' , "localhost.sql" or die $!; 

mkdir('output');
STDOUT->printflush("Processing");
for $lineNum (1 .. $#SQL_FILE){
		
		if($SQL_FILE[$lineNum] =~ /\-\- Database: `(.*)`/){
			$j = $lineNum;
			$currentDBName = $1;
			
			$currentFileContent = "";
			STDOUT->printflush(".");
			
			$j++;

			while($SQL_FILE[$j] !~ /\-\- Database: `(.*)`/ && $j<=$#SQL_FILE)	{
				
				$currentFileContent .= $SQL_FILE[$j]. "\n";
				$j++;
			}
			
			
				open NEW_FILE , ">", "output/"."$currentDBName.sql" or die "Cannot open output file";
					print  NEW_FILE $currentFileContent ;
					$currentFileContent = "";
			
			
		}
	
}

untie @SQL_FILE;