diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl
index 2dd83578a2..5bfe991145 100755
--- a/misc/migration_tools/bulkmarcimport.pl
+++ b/misc/migration_tools/bulkmarcimport.pl
@@ -9,6 +9,7 @@ use Modern::Perl;
 use MARC::File::USMARC;
 use MARC::File::XML;
 use MARC::Batch;
+use MARC::Lint;
 use Encode;
 
 use Koha::Script;
@@ -76,6 +77,7 @@ my $localcust;
 my $marc_mod_template    = '';
 my $marc_mod_template_id = -1;
 my $skip_indexing        = 0;
+my $strict_mode;
 $| = 1;
 
 GetOptions(
@@ -113,6 +115,7 @@ GetOptions(
     'custom:s'          => \$localcust,
     'marcmodtemplate:s' => \$marc_mod_template,
     'si|skip_indexing'  => \$skip_indexing,
+    'st|strict'         => \$strict_mode,
 );
 
 $biblios ||= !$authorities;
@@ -320,6 +323,7 @@ my $record_number = 0;
 my $logger        = Koha::Logger->get;
 my $schema        = Koha::Database->schema;
 my $marc_records  = [];
+my $lint          = MARC::Lint->new;
 RECORD: while () {
     my $record;
     $record_number++;
@@ -339,6 +343,19 @@ RECORD: while () {
     }
     if ($record) {
 
+        if ($strict_mode) {
+            my $xml = $record->as_xml_record();
+            eval { MARC::Record::new_from_xml( $xml, 'UTF-8', "MARC21" ); };
+            if ($@) {
+                print "Record $record_number generated invalid xml:\n";
+                $lint->check_record($record);
+                foreach my $warning ( $lint->warnings ) {
+                    print "    " . $warning . "\n";
+                }
+                print "    Record skipped!";
+                next;
+            }
+        }
         # transcode the record to UTF8 if needed & applicable.
         if ( $record->encoding() eq 'MARC-8' and not $skip_marc8_conversion ) {
             my ( $guessed_charset, $charset_errors );