I'm working on a perl script to clean up some video filenames and eliminate the extra fields after the name and episode. It's working perfect except for a string check at the end. Before I actually rename the file, if the current file name is identical then there's no point and also I don't want errors about identical file names. The code I'm using is

## Check to see if this is already a good name
if ($vid eq $newfile) {
print "Filename " . $vid . " is OK. \n";
} else {
## Show the old and new names
print "Old File = " . $vid . "\n";
print "New File = " . $newfile . "\n";
}

No matter what I've tried I get the same results. If a file is named My.Show.S01E01.avi then both $vid and $newfile contain that string in debugging, but the script never says "My.Show.S01E01.avi is OK"
Instead I get

Old File = My.Show.S01E01.avi
New File = My.Show.S01E01.avi

############ EDIT ############
Script is fixed, from early testing I had been printing the $newfile variable out to see what it did. Once I started expanding the script I forgot to remove it so the resulting $newfile had \n a the end of it although it didn't show in debugging.

You could also use -f to check if file exists maybe ?
if(-f $newfile) { print "$newfile exists\n"; }

Have you checked for whitespace at the end of the string?

You were really close. Note the EDIT on the original post. What happened was during testing where I build the new filename I had a \n at the end. After converting the string to the $newfile variable I forgot to remove it. During debugging it never showed there was a newline on the end of the variable so they looked identical. But after posting the thread I added the rest of the script to rename the files and tested it all the files were had .avi// / at the end and were effectively useless. Once I saw that I looked at the script and found and removed the \n and it's fixed.