$a = 'hello.world';
$b = 'helloxworld';

print "matched" if $b =~ /$a/;