$date=~ s/(\d+)-(\d+)-(\d+)/ sprintf( "%d-\/%02d\/-%d", $3, $1, $2 )/ge;