Help for this page

Select Code to Download

Select or download this

if ($mymobi =~ m/($myepub)/) {print "DUPLICATE FOUND !\n" ;
&movetodir($myfilt,$dupdir );     }
...
if ($mymobi eq $myepub) {print "DUPLICATE FOUND !\n" ;
&movetodir($myfilt,$dupdir );     }
#Works

Select or download this

use strict;
use warnings;
...

ok ($mymobi =~ m/($myepub)/);
ok ($mymobi eq $myepub);