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