my $value = 'sample1\\*sample2\\*sample3\\*sample4\\*sample5';
my $value2 = 'sample1\*sample2\*sample3\*sample4\*sample5';
if ($value eq $value2) {
   print "I am a studly programmer\n";
}
else {
   print "I am a doofus\n";
}