my $string = 'NaFlorian_Da20050301_Nr025_PfTestpfad.txt';

$string =~ tr/_/,/;

unless($string =~ /,Da\d+/){
  $string =~ s/,/, ,/;
}