../../Task/Approximate-equality/Perl