--- /dev/null
+my $covpolicy;
+my $covstatus;
+
+( $covpolicy, $covstatus ) = split(/\s*-\s*/, rec('F'));
+
+row('rbaze',
+ baza => config('input name'),
+ isn => rec('B'),
+ eissn => rec('C'),
+ title => rec('A'),
+ coverage_policy => $covpolicy,
+ coverage_status => $covstatus,
+ publisher => rec('D'),
+ country => rec('E')
+);