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


if ($mymobi eq $myepub) {print "DUPLICATE FOUND !\n" ;
&movetodir($myfilt,$dupdir );     }
#Works
##</code><code>##

use strict;
use warnings;

use Test::More tests => 2;

my $mymobi = 'Hello World!';
my $myepub = 'Hello World!';

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