my $find    = qr/\d{2}-\d{2}-\d{4}/;
my $replace = 'something else';

{   local ( $^I, @ARGV ) = ( '.bak', $_ );
    while ( <> ) {
        s|$find|$replace|g;
        print;
        }
    }