my $x = tr/,//;