deleting lines from a db dump file using perl

[msxi]

Hi,

I have s sed script that removes the following lines from a db dump file. I would like to remove these lines using perl. Could anybody assist?

/*!40101 SET SQL_MODE=@OLD_S QL_MODE */;
/*!40014 SET FOREIGN_KEY_CHE CKS=@OLD_FOREIG N_KEY_CHECKS */;
/*!40014 SET UNIQUE_CHECKS=@ OLD_UNIQUE_CHEC KS */;
/*!40111 SET SQL_NOTES=@OLD_ SQL_NOTES */;
/*!40014 SET @OLD_UNIQUE_CHE CKS=@@UNIQUE_CH ECKS, UNIQUE_CHECKS=0 */;
/*!40014 SET @OLD_FOREIGN_KE Y_CHECKS=@@FORE IGN_KEY_CHECKS, FOREIGN_KEY_CHE CKS=0 */;
/*!40101 SET @OLD_SQL_MODE=@ @SQL_MODE, SQL_MODE='NO_AU TO_VALUE_ON_ZER O' */;
/*!40111 SET @OLD_SQL_NOTES= @@SQL_NOTES, SQL_NOTES=0 */;

Appologies in advance as i'm new to perl

Thanks
msxi

[Ganon11]

Will these lines always begin with "/*!" and end with "*/", or are there some further specifications to mark these lines as needing removal?

The simplest solution would be to write a short script to open the resulting file and read it line by line. Use a regexp to search-and-replace the entire line with the empty string.

Let us know what you can come up with.