gistfile1.pl

#!/usr/bin/perl

my @staged = map {
  chomp;
  s/^M\s{2}(.+)/$1/ && $_
} grep { /^M\s{2}/ } `git status --short -b`;

scp_it( @staged );

sub scp_it {
  map { system('scp', '-r', $_, "scp1\@rambo:etc/$_") } @staged;
}