Select Code to Download

use Test::More 'tests' => 5;

...
ok( !('bar' =~ /\Q/),       'repeated match with \\Q' );
my $empty = '';
ok( !('bar' =~ /\Q$empty/), 'interpolated empty string same as \\Q' );