Untitled

#!/usr/bin/perl
 
$cmd0= 'find /path/to/wavs/ -iname "*.wav" > /path/to/logs/all_wav_files.txt';
`$cmd0`;
open(FH,'<','/path/to/logs/all_wav_files.txt');
foreach my $line (<FH>)
{
  $line =~ s/,/\,/g;
  print $line;
}
close(FH)