The regex you give matches against "R.N. Raox, J. Pure and Appl. Phys.", but I thought dominic01's OP wanted no match in this case because ' Appl. Phys.' is preceded by 'and';
The regex defined by my $Jrnl = qr/Appl. Phys./; will also match something like 'Applx Physy';
You have the use 5.018; statement at the beginning of your code, but nothing in the code seems to require version 5.18+.