#!/usr/bin/perl
my $string=('data12.csv');
$string=~ s/\D//g;
$string = 0 if $string eq '';
print "$string\n";