$file = ~m/^.*(\\|\/)(.*)/;
open(LOCAL, ">../../htdocs/images/photos/$file") or die $!;
while(<$file>) {
print LOCAL $_;
}