How to conditionally substitute in files?

[Siegfried Heintze (Aditi)]

This works:

perl -i.bak -ple "s/class/xybpublicabc/g" Migration.cs

However, when there are no matches, it still creates a new .bak file.

How can we not change the date time on a file if there are no substitutions 
make?