Problematic with warnings enabled:

c:\@Work\Perl\monks>perl -wMstrict -le
"my $string = 'data.csv';
 $string =~ s/\D//g;
 $string += 0;
 print qq{'$string'};
"
Argument "" isn't numeric in addition (+) at -e line 1.
'0'
[download]