while (<>) {
  chomp;
  s/prs[0]*//g;
  @arr = split/,/;
  $oline = join " ",@arr;
  print "$oline\n";
}
