Or even:

c:\@Work\Perl\monks>perl -wMstrict -le
"my $string = 'data.csv';
 $string =~ s/\D//g;
 $string ||= 0;
 print qq{'$string'};
"
'0'
[download]