open(my $fh, "svn stat |")
  or die "Can't run svn: $!\n";
while (<$fh>) {
  if (/^ M/) {
    my @array = split;
    my $filename = $array[-1];
  }
}
close $fh;