my $matches = $string =~ s/_//g; 
       print $matches;