$literal='abc@array$';
@array=(1,2,3);
$interpolated="abc@array\$";

print 'literal: ',$literal,"\n";
print 'interp.: ',$interpolated,"\n";

if ($literal =~ /$literal/) {
  print "literal matches itself\n"
} else {
  print "literal doesn't match itself\n"
}

$literal2='abc@array';
if ($literal2 =~ /$literal2/) {
  print "literal2 matches itself\n"
} else {
  print "literal2 doesn't match itself\n"
}

if ($literal2 =~ /$literal/) {
  print "literal2 matches literal\n"
} else {
  print "literal2 doesn't match literal\n"
}

##</code><code>##

literal: abc@array$
interp.: abc1 2 3$
literal doesn't match itself
literal2 matches itself
literal2 matches literal